9;, ftString , 10);. FieldDefs.Add ('fio', ftString, 250);. FieldDefs.Add ('tel', ftString, 10);. FieldDefs.Add ('kod_c', ftString, 10);. CreateTable;. FieldDefs.Clear;. TableName: = 'cpec.dbf';. FieldDefs.Add ('kod_c', ftString, 10);. FieldDefs.Add ('naim', ftString, 250);. FieldDefs.Add ('oklad' , ftInteger);. CreateTable;. FieldDefs.Clear;
. TableName: = 'd_rabot.dbf';. FieldDefs.Add ('id_ra', ftString, 10);. FieldDefs.Add ('naimen', ftString, 250);. FieldDefs.Add ('adres', ftString, 250);. FieldDefs.Add ('tel', ftString, 10);. FieldDefs.Add ('kod_c', ftString, 30);. CreateTable;. FieldDefs.Clear;; TForm1.MenuItem6Click (Sender: TObject) ;. ShowModal;; TForm1.FormCreate (Sender: TObject);; TForm1.FormShow (Sender: TObject);; TForm1.list_tChange (Sender: TObject); _close ();. TableName: = list_t.Text;. Open;; TForm1.Button1Click (Sender: TObject); _close ();. close;; TForm1.Button2Click (Sender: TObject);. Delete;;. (Анкета) Unit2;
{$ mode objfpc} {$ H +}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls, Calendar;
{TForm2} = class (TForm): TButton;: TButton;: TButton;: TButton; _kod: TDBEdit; _c: TDBEdit;: TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TDatasource; _sotr : TDBEdit;: TDBEdit;: TDBEdit;: TDbf;: TDatasource;: TDbf; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); kod_cChange (Sender: TObject); kod_sotrChange (Sender: TObject); now_kodChange (Sender: TObject); FormClose (Sender: TObject; var CloseAction: TCloseAction); FormCreate (Sender: TObject); FormShow (Sender: TObject); Label1Click (Sender: TObject);
{private declarations}
{public declarations};: TForm2;
{$ R *. lfm}
{TForm2} TForm2.FormCreate (Sender: TObject);; TForm2.Button1Click (Sender: TObject);. Prior;; TForm2.Button2Click (Sender: TObject);. next;; TForm2.Button3Click (Sender: TObject) ;. append;; TForm2.Button4Click (Sender: TObject);. delete;. close;. close;. close;; TForm2.kod_cChange (Sender: TObject);; TForm2.kod_sotrChange (Sender: TObject);; TForm2.now_kodChange (Sender: TObject); _c.text: = now_kod.text;; TForm2.FormClose (Sender: TObject; var CloseAction: TCloseAction); (t.State = dsEdit) then.post;. close;. close;; TForm2. FormShow (Sender: TObject); x: string;. open;. open;. First; not (t.EOF) do begin (kod_sotr.Text <>'') then: = IntToStr (StrToInt (kod_sotr.Text) +1);. Next;;
// ShowMessage (x);. Append;. Edit; _sotr.Text: = x;; TForm2.Label1Click (Sender: TObject);;.
(Меню) Unit3;
{$ mode objfpc} {$ H +}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, DBGrids, StdCtrls;
{TForm3} = class (TForm): TButton;: TDatasource;: TDbf;: TDatasource;: TDatasource;: TDatasource;: TDbf;: TDbf;: TDbf;: TDBGrid;: TMainMenu;: TMenu...
