'' filters: = filters + '(' + Table1.Fields [i]. FieldName + '=' + QuotedStr (Inputs [i]. Text + '*') + ') and';; filters <>'' 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г. p align="justify">. Микита Культин. Основи програмування...
