48634 (588585), страница 4

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

Table1PrimnaRabd: TStringField;

Table1Strpod: TStringField;

Table1Dolg: TStringField;

Table1Stvka: TStringField;

Table1Osn1: TStringField;

Table1Podpes: TStringField;

Table1DatAtest: TStringField;

Table1ReshKom: TStringField;

Table1Docnom: TStringField;

Table1Docdat: TStringField;

Table1Osn2: TStringField;

Table1Datnach: TStringField;

Table1Datokoch: TStringField;

Table1Vidpovish: TStringField;

Table1NaimenObrYch: TStringField;

Table1Docnaimen: TStringField;

Table1DocSer: TStringField;

Table1Docd: TStringField;

Table1Osn3: TStringField;

Table1DataNach: TStringField;

Table1DataKon: TStringField;

Table1Special: TStringField;

Table1DokymNam: TStringField;

Table1DokymNOM: TStringField;

Table1Dokymdat: TStringField;

Table1Osn4: TStringField;

Table1KolD: TStringField;

Table1PerRabS: TStringField;

Table1PerRabPo: TStringField;

Table1KolDen: TStringField;

Table1DataNa: TStringField;

Table1DataOk: TStringField;

Table1Osn5: TStringField;

Table1Yvol: TStringField;

Table1DatYd: TStringField;

Table1DatYm: TStringField;

Table1DatYg: TStringField;

Table1PrikN: TStringField;

Table1Prikd: TStringField;

Table1Prikm: TStringField;

Table1Prikg: TStringField;

Table1RabKadSlD: TStringField;

Table1Pod: TStringField;

Table1Rashifr: TStringField;

Table1Rabotnic: TStringField;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label4: TLabel;

DBEdit3: TDBEdit;

Label5: TLabel;

DBEdit4: TDBEdit;

Label6: TLabel;

DBEdit5: TDBEdit;

Label7: TLabel;

DBEdit6: TDBEdit;

Label8: TLabel;

Label9: TLabel;

DBEdit7: TDBEdit;

Label10: TLabel;

DBEdit8: TDBEdit;

Label12: TLabel;

DBEdit10: TDBEdit;

Label13: TLabel;

DBEdit11: TDBEdit;

Label14: TLabel;

DBEdit12: TDBEdit;

Label15: TLabel;

DBEdit13: TDBEdit;

Label16: TLabel;

DBEdit14: TDBEdit;

Label17: TLabel;

DBEdit15: TDBEdit;

Label18: TLabel;

DBEdit16: TDBEdit;

Label19: TLabel;

DBEdit17: TDBEdit;

Label20: TLabel;

Table1Grajdan: TStringField;

Table1MestoJ: TStringField;

Label11: TLabel;

DBEdit9: TDBEdit;

Label21: TLabel;

DBEdit18: TDBEdit;

Label22: TLabel;

DBEdit19: TDBEdit;

Label23: TLabel;

DBEdit20: TDBEdit;

Label24: TLabel;

DBEdit21: TDBEdit;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

DBEdit22: TDBEdit;

Label28: TLabel;

DBEdit23: TDBEdit;

Label29: TLabel;

DBEdit24: TDBEdit;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

DBEdit25: TDBEdit;

Label34: TLabel;

DBEdit26: TDBEdit;

Label35: TLabel;

DBEdit27: TDBEdit;

Panel1: TPanel;

Label36: TLabel;

Label37: TLabel;

DBEdit28: TDBEdit;

Label38: TLabel;

DBEdit29: TDBEdit;

Label39: TLabel;

DBEdit30: TDBEdit;

Label40: TLabel;

DBEdit31: TDBEdit;

Label41: TLabel;

DBEdit32: TDBEdit;

Label42: TLabel;

Label43: TLabel;

DBEdit33: TDBEdit;

Label44: TLabel;

Label45: TLabel;

DBEdit34: TDBEdit;

Label46: TLabel;

DBEdit35: TDBEdit;

Label47: TLabel;

DBEdit36: TDBEdit;

Label48: TLabel;

DBEdit37: TDBEdit;

Label49: TLabel;

Panel2: TPanel;

Label50: TLabel;

DBEdit38: TDBEdit;

Label51: TLabel;

DBEdit39: TDBEdit;

Label52: TLabel;

DBEdit40: TDBEdit;

Label53: TLabel;

DBEdit41: TDBEdit;

Label54: TLabel;

DBEdit42: TDBEdit;

Label55: TLabel;

DBEdit43: TDBEdit;

Label56: TLabel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Label57: TLabel;

Label58: TLabel;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

Label62: TLabel;

Label63: TLabel;

DBEdit44: TDBEdit;

Label64: TLabel;

DBEdit45: TDBEdit;

Label65: TLabel;

DBEdit46: TDBEdit;

Label66: TLabel;

DBEdit47: TDBEdit;

Label67: TLabel;

DBEdit48: TDBEdit;

Label68: TLabel;

Label69: TLabel;

DBEdit49: TDBEdit;

Label70: TLabel;

DBEdit50: TDBEdit;

Label71: TLabel;

DBEdit51: TDBEdit;

Label72: TLabel;

DBEdit52: TDBEdit;

Label73: TLabel;

Label74: TLabel;

DBEdit53: TDBEdit;

Label75: TLabel;

DBEdit54: TDBEdit;

Label76: TLabel;

DBEdit55: TDBEdit;

Label77: TLabel;

DBEdit56: TDBEdit;

Label78: TLabel;

Label79: TLabel;

DBEdit57: TDBEdit;

Label80: TLabel;

DBEdit58: TDBEdit;

Label81: TLabel;

DBEdit59: TDBEdit;

Label82: TLabel;

DBEdit60: TDBEdit;

Label83: TLabel;

DBEdit61: TDBEdit;

Label84: TLabel;

DBEdit62: TDBEdit;

Label85: TLabel;

DBEdit63: TDBEdit;

Label86: TLabel;

Label87: TLabel;

Panel8: TPanel;

Label88: TLabel;

Label90: TLabel;

Panel6: TPanel;

Label89: TLabel;

DBEdit64: TDBEdit;

Label91: TLabel;

DBEdit65: TDBEdit;

Label92: TLabel;

DBEdit66: TDBEdit;

Label93: TLabel;

DBEdit67: TDBEdit;

Label94: TLabel;

DBEdit68: TDBEdit;

Label95: TLabel;

DBEdit69: TDBEdit;

Label96: TLabel;

DBEdit70: TDBEdit;

Label97: TLabel;

Label98: TLabel;

Label99: TLabel;

Label100: TLabel;

Label101: TLabel;

DBEdit71: TDBEdit;

Label102: TLabel;

DBEdit72: TDBEdit;

Label103: TLabel;

DBEdit73: TDBEdit;

Label104: TLabel;

Label105: TLabel;

DBEdit74: TDBEdit;

Label106: TLabel;

DBEdit75: TDBEdit;

Label107: TLabel;

DBEdit76: TDBEdit;

Label108: TLabel;

DBEdit77: TDBEdit;

Label109: TLabel;

DBEdit78: TDBEdit;

Label110: TLabel;

Label111: TLabel;

Label112: TLabel;

DBEdit79: TDBEdit;

Label114: TLabel;

DBEdit81: TDBEdit;

Label115: TLabel;

RvTableConnection1: TRvTableConnection;

RvProject1: TRvProject;

RvTableConnection2: TRvTableConnection;

RvProject2: TRvProject;

RvTableConnection3: TRvTableConnection;

RvProject3: TRvProject;

N7: TMenuItem;

N8: TMenuItem;

procedure N2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Label32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label32MouseLeave(Sender: TObject);

procedure Label32Click(Sender: TObject);

procedure Label36Click(Sender: TObject);

procedure Label49MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label49Click(Sender: TObject);

procedure Label56Click(Sender: TObject);

procedure Label49MouseLeave(Sender: TObject);

procedure Label57Click(Sender: TObject);

procedure Label58Click(Sender: TObject);

procedure Label59Click(Sender: TObject);

procedure Label60Click(Sender: TObject);

procedure Label61Click(Sender: TObject);

procedure Label62Click(Sender: TObject);

procedure Label88Click(Sender: TObject);

procedure Label99Click(Sender: TObject);

procedure Label100Click(Sender: TObject);

procedure Label90Click(Sender: TObject);

procedure Label57MouseLeave(Sender: TObject);

procedure Label57MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label58MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label59MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label88MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label100MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label58MouseLeave(Sender: TObject);

procedure Label59MouseLeave(Sender: TObject);

procedure Label88MouseLeave(Sender: TObject);

procedure Label100MouseLeave(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *. dfm}

procedure TForm2. N2Click(Sender: TObject);

begin

form1. Close;

end;

procedure TForm2. FormCreate(Sender: TObject);

var s: string;

begin

Table1. Active: =true;

Label36. Cursor: =crHandPoint;

Label32. Cursor: =crHandPoint;

Label49. Cursor: =crHandPoint;

Label56. Cursor: =crHandPoint;

Label57. Cursor: =crHandPoint;

Label58. Cursor: =crHandPoint;

Label59. Cursor: =crHandPoint;

Label60. Cursor: =crHandPoint;

Label61. Cursor: =crHandPoint;

Label62. Cursor: =crHandPoint;

Label88. Cursor: =crHandPoint;

Label90. Cursor: =crHandPoint;

Label99. Cursor: =crHandPoint;

Label100. Cursor: =crHandPoint;

end;

procedure TForm2. Label32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label32. Font. Color: =clBlue;

end;

procedure TForm2. Label32MouseLeave(Sender: TObject);

begin

Label32. Font. Color: =clBlack;

end;

procedure TForm2. Label32Click(Sender: TObject);

begin

Panel1. Visible: =true;

Label32. Visible: =false;

end;

procedure TForm2. Label36Click(Sender: TObject);

begin

Panel1. Visible: =false;

Label32. Visible: =true;

end;

procedure TForm2. Label49MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label49. Font. Color: =clBlue;

end;

procedure TForm2. Label49Click(Sender: TObject);

begin

Panel2. Visible: =true;

Label49. Visible: =false;

end;

procedure TForm2. Label56Click(Sender: TObject);

begin

Panel2. Visible: =false;

Label49. Visible: =true;

end;

procedure TForm2. Label49MouseLeave(Sender: TObject);

begin

Label49. Font. Color: =clBlack;

end;

procedure TForm2. Label57Click(Sender: TObject);

begin

Panel3. Visible: =true;

Label57. Visible: =false;

end;

procedure TForm2. Label58Click(Sender: TObject);

begin

Panel4. Visible: =true;

Label58. Visible: =false;

end;

procedure TForm2. Label59Click(Sender: TObject);

begin

Panel5. Visible: =true;

Label59. Visible: =false;

end;

procedure TForm2. Label60Click(Sender: TObject);

begin

Panel3. Visible: =false;

Label57. Visible: =true;

end;

procedure TForm2. Label61Click(Sender: TObject);

begin

Panel4. Visible: =false;

Label58. Visible: =true;

end;

procedure TForm2. Label62Click(Sender: TObject);

begin

Panel5. Visible: =false;

Label59. Visible: =true;

end;

procedure TForm2. Label88Click(Sender: TObject);

begin

label88. Visible: =false;

Panel6. Visible: =true;

end;

procedure TForm2. Label99Click(Sender: TObject);

begin

label88. Visible: =true;

Panel6. Visible: =false;

end;

procedure TForm2. Label100Click(Sender: TObject);

begin

Label100. Visible: =false;

Panel8. Visible: =true;

end;

procedure TForm2. Label90Click(Sender: TObject);

begin

Label100. Visible: =true;

Panel8. Visible: =false;

end;

procedure TForm2. Label57MouseLeave(Sender: TObject);

begin

Label57. Font. Color: =clBlack;

end;

procedure TForm2. Label57MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label57. Font. Color: =clBlue;

end;

procedure TForm2. Label58MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label58. Font. Color: =clBlue;

end;

procedure TForm2. Label59MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label59. Font. Color: =clBlue;

end;

procedure TForm2. Label88MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label88. Font. Color: =clBlue;

end;

procedure TForm2. Label100MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label100. Font. Color: =clBlue;

end;

procedure TForm2. Label58MouseLeave(Sender: TObject);

begin

Label58. Font. Color: =clBlack;

end;

procedure TForm2. Label59MouseLeave(Sender: TObject);

begin

Характеристики

Список файлов ВКР