Приложение для работы с базой данных (dBase)
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
= GroupBox1;[i].PopupMenu := PopupMenu2;[i].OnContextPopup := MyEditPopup;[i].Tag := i;;i := 0 to 4 do with PopupMenu1 do//Создание меню сортирования[i] := TMenuItem.Create(self);i then:= copy(Filters, 0, Length(filters)-4);.Filter := filters;;;TPhoneForm.EraseButtonClick(Sender: TObject);: integer;i := 0 to 4 do Inputs[i].Text := ;;TPhoneForm.SortMode (Sender: tObject);: integer;i := 0 to 2 do.Items[i].Checked := false;
(sender as TMenuItem).Checked := true;;TPhoneForm.FormClose(Sender: TObject; var Action: TCloseAction);.OnMessage := MainForm.progressAom;;(MainForm.Handle, WM_CLOSE, 0, 0);;TPhoneForm.ReadIni;TIniFile.Create(ExtractFilePath(Application.exename)+sIniFile) do.IndexName := IndexName[ReadInteger(Defaults,SortIndex, 0)];:= ReadInteger(Position,left, 100);:= ReadInteger(Position,top, 100);:= ReadInteger(Position,height, 50);;;IndexOfItem(Item: string): integer;Item = SortName[1] then result := 1if Item = SortName[2] then result := 2result := 0;;TPhoneForm.WriteIni;TIniFile.Create(ExtractFilePath(Application.exename)+sIniFile) do(Defaults,SortIndex, IndexOfItem(Table1.indexName));(Position,left, PhoneForm.left);(Position,top, PhoneForm.top);(Position,height, PhoneForm.height);;;TPhoneForm.MInMaxSize(var Message: TMessage);TwmGetMinMaxInfo(Message) do.ptMaxTrackSize.X := PhoneForm.Width;.ptMaxTrackSize.y := Screen.Height- 100;.ptMinTrackSize.X := PhoneForm.Width;.ptMinTrackSize.y := 200;;;TPhoneForm.MyPopupHandler2(Sender: TObject);Sender is TMenuItem thenClipboard.HasFormat(CF_TEXT) then // number of edit send by popupmenu2.tag[PopupMenu2.Tag].Text := Clipboard.AsText;;TPhoneForm.MyEditPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);.Items[0].Enabled := Clipboard.HasFormat(CF_TEXT);Sender is TEdit then PopupMenu2.Tag := (Sender as TEdit).Tag;TPhoneForm.N20Click(Sender: TObject);.HelpCommand(HELP_WM_HELP ,0);;TPhoneForm.N13Click(Sender: TObject);.First;;TPhoneForm.N14Click(Sender: TObject);.Prior;;TPhoneForm.N15Click(Sender: TObject);.Next;;TPhoneForm.N16Click(Sender: TObject);.Last;;TPhoneForm.ExitButtonClick(Sender: TObject);.Close;.Close;;TPhoneForm.SearchButtonClick(Sender: TObject);.OnClick(Sender);;TPhoneForm.FormDestroy(Sender: TObject);.HelpCommand(HELP_QUIT,0);
end;.
Заключение
В результате выполнения курсовой работы мною было создано приложение для работы с базой данных (dBase) создание алиасов к базе данных.
Список использованной литературы
1. А. Я. Архангельский Программирование в Delphi 7.2003г.
. Никита Культин. Основы программирования в Delphi 7. Самоучитель.2002г.
. Delphi 7. Учебный курс. Бобровский С.