Реферат Розробка програмного модуля "Кадрова агенція"

TObject);. append;; TForm4.Button2Click (Sender: TObject);. delete;. close;. close;;

.

(Введення вакансії) Unit5;

{$ mode objfpc} {$ H +}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls;

{TForm5} = class (TForm): TButton;: TButton;: TButton;: TButton;: TDatasource;: TDBEdit;: TDbf;: TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel; : TDatasource;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDbf; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); DBText1Click (Sender: TObject); FormCreate (Sender: TObject); FormShow (Sender: TObject);

{private declarations}

{public declarations};: TForm5;

{$ R *. lfm}

{TForm5} TForm5.FormCreate (Sender: TObject);; TForm5.FormShow (Sender: TObject);. Open;. Open;; TForm5.Button1Click (Sender: TObject);. Append;; TForm5.Button2Click (Sender : TObject);. delete;. close;. close;; TForm5.Button3Click (Sender: TObject);. Prior;; TForm5.Button4Click (Sender: TObject);. next;; TForm5.DBText1Click (Sender: TObject);; .

(Запит працівника) Unit6;

{$ mode objfpc} {$ H +}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls, DBGrids;

{TForm6} = class (TForm): TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TDatasource;: TDBEdit;: TLabel;: TLabel;: TMemo;: TSaveDialog;: TDBEdit; : TDBEdit;: TDBGrid;: TDatasource;: TDbf;: TDBText;: TDatasource;: TLabel; _k: TDBEdit;: TDbf;: TDbf; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject ); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); DBText1Click (Sender: TObject); FormClose (Sender: TObject; var CloseAction: TCloseAction); FormShow (Sender: TObject); Label1Click (Sender: TObject); now_kChange (Sender: TObject);

{private declarations}

{public declarations};: TForm6;

{$ R *. lfm}

{TForm6} TForm6.Button1Click (Sender: TObject);. Prior;; TForm6.Button2Click (Sender: TObject);. next;; TForm6.Button3Click (Sender: TObject); x, y, z, w: string ;

// while not (tt.eof) do begin

// if (now_k.Text = t.FieldByName ('kod_c'). AsString) then

// begin

// temp.Append; temp.Edit;

// fio.text: = tt.FieldByName ('fio'). AsString;

// tel.text: = tt.FieldByName ('tel'). AsString;

// naim.text: = t.FieldByName ('naim'). AsString;

// end;

// tt.Next;

// end;: = now_k.text;. First;. open;. First; not (tt.eof) do begin (x = tt.FieldByName ('kod_c'). AsString) then begin: = tt. FieldByName ('fio'). AsString;: = t.FieldByName ('naim'). AsString;: = tt.FieldByName ('tel'). AsString;. caption: = z;. caption: = y;

// tt.FieldDefs.;. Append;. FieldByName ('fio'). AsString: = z;. Fi T...