Object);. Close;. Close;. Close;. Close;; TForm6.Button5Click (Sender: TObject); s: string;. Visible: = true;. Visible: = true; (savedialog1.Execute) then begin.First ;. Lines.Add ('Список працівників');
code.Lines.Add ('ПІБ' + 'Телефон' + 'Спеціальність');
while not (temp.EOF) do begin.Lines.Add (. FieldByName ('fio'). AsString + '' +. FieldByName ('tel'). AsString + '' +. FieldByName ('naim'). AsString + ''
);. Next;;. Lines.SaveToFile (UTF8ToSys (SaveDialog1.FileName + '. txt'));;; TForm6.Button6Click (Sender: TObject);. Visible: = false;. Visible: = false;; TForm6.DBText1Click (Sender: TObject);; TForm6.FormClose (Sender: TObject; var CloseAction: TCloseAction);. Close;. Close;. Close;; TForm6.FormShow (Sender: TObject);. TableName: = 'temp2. dbf ';. FieldDefs.Add (' fio ', ftString, 250);. FieldDefs.Add (' tel ', ftString, 10);. FieldDefs.Add (' naim ', ftString, 250);. CreateTable;. FieldDefs . Clear;. Open;. open;. open;; TForm6.Label1Click (Sender: TObject);; TForm6.now_kChange (Sender: TObject);;.
(Запит вакансії) Unit7;
{$ mode objfpc} {$ H +}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls, DBGrids, ExtCtrls;
{TForm7} = class (TForm): TButton;: TButton;: TButton;: TButton;: TDatasource;: TDatasource;: TDbf;: TDatasource; _k: TDBEdit;: TDbf;: TDBGrid;: TDBText;: TLabel ;: TDbf; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); FormShow (Sender: TObject);
{private declarations}
{public declarations};: TForm7;
{$ R *. lfm}
{TForm7} TForm7.Button1Click (Sender: TObject);. Prior;; TForm7.Button2Click (Sender: TObject);. next;; TForm7.Button3Click (Sender: TObject); x, z, y, w, u : string;: = now_k.text;. First;. open;. First; not (tt.eof) do begin (x = tt.FieldByName ('kod_c'). AsString) then begin: = tt.FieldByName ('naimen '). AsString;: = tt.FieldByName (' tel '). AsString;: = tt.FieldByName (' adres '). AsString;: = TObject);. Close;. Close;. Close;. Close;; TForm7.FormShow (Sender: TObject);. TableName: = 'temp.dbf';. FieldDefs.Add ('naimen', ftString, 250);. FieldDefs.Add ('tel', ftString, 10);. FieldDefs.Add ('adres', ftString, 250);. FieldDefs.Add ('naim', ftString, 250);. CreateTable;. FieldDefs.Clear;. Open;. open;. open;;.
Виконуваний код.project1;
{$ mode objfpc} {$ H +}
{$ IFDEF UNIX} {$ IFDEF UseCThreads},
{$ ENDIF} {$ ENDIF},// ​​this includes the LCL widgetset, Unit1, dbflaz, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;
{$ R *. res}. Initialize;. CreateForm (TForm3, Form3);. CreateForm (TForm1, Form1);. CreateForm (TForm2, Form2);. CreateForm (TForm4, Form4);. CreateForm (TForm5, Fo...
