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

Item;: TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; Button1Click (Sender: TObject); FormCreate (Sender: TObject); FormShow (Sender: TObject); MenuItem1Click (Sender: TObject); MenuItem2Click (Sender: TObject); MenuItem3Click (Sender: TObject); MenuItem4Click (Sender: TObject); MenuItem5Click (Sender: TObject); MenuItem6Click (Sender: TObject); MenuItem7Click (Sender: TObject); MenuItem8Click (Sender: TObject);

{private declarations}

{public declarations};: TForm3;

{$ R *. lfm} unit1, unit2, unit4, unit5, unit6, Unit7;

{TForm3} TForm3.MenuItem1Click (Sender: TObject);; TForm3.FormShow (Sender: TObject);. Open;. Open;. open;. TableName: = 'temp.dbf';. FieldDefs.Add (' fio ', ftString, 250);. FieldDefs.Add (' tel ', ftString, 10);. FieldDefs.Add (' s ', ftString, 10);. FieldDefs.Add (' naimen ', ftString, 250); . FieldDefs.Add ('adres', ftString, 250);. FieldDefs.Add ('tel1', ftString, 10);. FieldDefs.Add ('naim', ftString, 250);. CreateTable;. FieldDefs.Clear; . Open;; TForm3.FormCreate (Sender: TObject);; TForm3.Button1Click (Sender: TObject);; TForm3.MenuItem2Click (Sender: TObject);. ShowModal;; TForm3.MenuItem3Click (Sender: TObject);. ShowModal;; TForm3.MenuItem4Click (Sender: TObject);. ShowModal;; TForm3.MenuItem5Click (Sender: TObject);. ShowModal;; TForm3.MenuItem6Click (Sender: TObject);. ShowModal;; TForm3.MenuItem7Click (Sender: TObject);. showmodal ;; TForm3.MenuItem8Click (Sender: TObject); x, c, v, b, n, m, z: string;. Visible: = true;. Visible: = true;. First;. First;. First; not ( rab1.eof) donot (rabi1.eof) do ((rab1.FieldByName ('kod_c'). AsString = rabi1.FieldByName ('kod_c'). AsString)): = rab1.FieldByName ('fio'). AsString;: = rab1.FieldByName ('tel'). AsString;: = '->';: = rabi1.FieldByName ('naimen'). AsString;: = rabi1.FieldByName ('adres'). AsString;: = rabi1 . FieldByName ('tel'). AsString;: =

(Введення спеціальності) Unit4;

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

{TForm4} = class (TForm): TButton;: TButton;: TLabel;: TLabel;: TLabel;: TDatasource; _c: TDBEdit;: TDBEdit;: TDBEdit;: TDbf; Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormShow (Sender: TObject); naimChange (Sender: TObject); okladChange (Sender: TObject);

{private declarations}

{public declarations};: TForm4;

{$ R *. lfm}

{TForm4} TForm4.FormShow (Sender: TObject); x: string;. open;

// d2.open;. First; not (t.EOF) do begin (kod_c.Text <>'') then: = IntToStr (StrToInt (kod_c.Text) +1);. Next;;

// ShowMessage (x);. Append;. Edit; _c.Text: = x;; TForm4.naimChange (Sender: TObject);; TForm4.okladChange (Sender: TObject);

// oklad: = StrToInt (oklad.text);; TForm4.Button1Click (Sender:...