Panel16: TPanel;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BtnSAVEENTER2: TBitBtn;
EditENTER2: TEdit;
Panel17: TPanel;
DBNavigator5: TDBNavigator;
DBGrid5: TDBGrid;
Panel18: TPanel;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BtnSAVEPERSONAL: TBitBtn;
Panel19: TPanel;
DBNavigator6: TDBNavigator;
EditPERSONAL: TEdit;
DBGrid6: TDBGrid;
Panel20: TPanel;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
BtnSAVEPTYPE: TBitBtn;
EditPTYPE: TEdit;
Panel21: TPanel;
DBNavigator7: TDBNavigator;
DBGrid7: TDBGrid;
Panel22: TPanel;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
BtnSAVESTREET: TBitBtn;
EditSTREET: TEdit;
Panel23: TPanel;
DBNavigator8: TDBNavigator;
DBGrid8: TDBGrid;
Panel24: TPanel;
BitBtn14: TBitBtn;
BitBtn15: TBitBtn;
BtnSAVEVILLAGE: TBitBtn;
EditVILLAGE: TEdit;
Panel25: TPanel;
DBNavigator9: TDBNavigator;
DBGrid9: TDBGrid; procedure EditDSChange(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BtnSAVEClick(Sender: TObject); procedure EditDSClick(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BtnSAVEENTERClick(Sender: TObject); procedure EditENTERChange(Sender: TObject); procedure EditENTERClick(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BtnSAVEENTER2Click(Sender: TObject); procedure EditENTER2Change(Sender: TObject); procedure EditENTER2Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure BtnSAVEPERSONALClick(Sender: TObject); procedure EditPERSONALChange(Sender: TObject); procedure EditPERSONALKeyPress(Sender: TObject; var Key: Char); procedure BitBtn10Click(Sender: TObject); procedure BitBtn11Click(Sender: TObject); procedure BtnSAVEPTYPEClick(Sender: TObject); procedure EditPTYPEChange(Sender: TObject); procedure EditPTYPEKeyPress(Sender: TObject; var Key: Char); procedure BitBtn12Click(Sender: TObject); procedure BitBtn13Click(Sender: TObject); procedure BtnSAVESTREETClick(Sender: TObject); procedure EditSTREETChange(Sender: TObject); procedure EditSTREETKeyPress(Sender: TObject; var Key: Char); procedure BitBtn14Click(Sender: TObject); procedure BitBtn15Click(Sender: TObject); procedure BtnSAVEVILLAGEClick(Sender: TObject); procedure EditVILLAGEChange(Sender: TObject); procedure EditVILLAGEKeyPress(Sender: TObject; var Key: Char); private
{ Private declarations } public
{ Public declarations } end;
var FrmMain: TFrmMain;
implementation
uses AdminDM, DB;
{$R *.DFM}
procedure TFrmMain.EditDSChange(Sender: TObject); begin With DMAdmin do begin
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); if (TblDSTITLE.Value EditDS.Text) and
(EditDS.Text '') then
BtnSAVE.Enabled := True else
BtnSAVE.Enabled := False;
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); end; end;
procedure TFrmMain.BitBtn2Click(Sender: TObject); begin EditDS.Enabled := True; EditDS.SetFocus; end;
procedure TFrmMain.BtnSAVEClick(Sender: TObject); begin DMAdmin.TblDS.Insert; DMAdmin.TblDSCODE.Value := DMAdmin.TblDS.RecordCount; DMAdmin.TblDSTITLE.Value := EditDS.Text; DMAdmin.TblDS.Post; DMAdmin.TblDS.Refresh; EditDS.Text := ''; EditDS.Enabled := False; BtnSAVE.Enabled := False; end;
procedure TFrmMain.EditDSClick(Sender: TObject); begin With DMAdmin do begin
procedure TFrmMain.BitBtn4Click(Sender: TObject); begin EditENTER.Enabled := True; EditENTER.SetFocus; end;
procedure TFrmMain.BitBtn3Click(Sender: TObject); begin EditDS.Text := ''; EditDS.Enabled := False; BtnSAVE.Enabled := False; end;
procedure TFrmMain.BitBtn5Click(Sender: TObject); begin EditENTER.Text := ''; EditENTER.Enabled := False; BtnSAVEENTER.Enabled := False; end;
procedure TFrmMain.BtnSAVEENTERClick(Sender: TObject); begin DMAdmin.TblENTERA.Insert; DMAdmin.TblENTERACODE.Value := DMAdmin.TblENTERA.RecordCount; DMAdmin.TblENTERATITLE.Value := EditENTER.Text; DMAdmin.TblENTERA.Post; DMAdmin.TblENTERA.Refresh; EditENTER.Text := ''; EditENTER.Enabled := False; BtnSAVEENTER.Enabled := False; end;
procedure TFrmMain.EditENTERChange(Sender: TObject); begin With DMAdmin do begin
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]); if (TblENTERATITLE.Value EditENTER.Text) and
(EditENTER.Text '') then
BtnSAVEENTER.Enabled := True else
BtnSAVEENTER.Enabled := False;
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditENTERClick(Sender: TObject); begin With DMAdmin do begin
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]); if (TblENTERTITLE.Value EditENTER.Text) and
procedure TFrmMain.BitBtn6Click(Sender: TObject); begin EditENTER2.Enabled := True; EditENTER2.SetFocus; end;
procedure TFrmMain.BitBtn7Click(Sender: TObject); begin EditENTER2.Text := ''; EditENTER2.Enabled := False; BtnSAVEENTER2.Enabled := False; end;
procedure TFrmMain.BtnSAVEENTER2Click(Sender: TObject); begin DMAdmin.TblENTER2A.Insert; DMAdmin.TblENTER2ACODE.Value := DMAdmin.TblENTER2A.RecordCount; DMAdmin.TblENTER2ATITLE.Value := EditENTER2.Text; DMAdmin.TblENTER2A.Post; DMAdmin.TblENTER2A.Refresh; EditENTER2.Text := ''; EditENTER2.Enabled := False; BtnSAVEENTER2.Enabled := False; end;
procedure TFrmMain.EditENTER2Change(Sender: TObject); begin With DMAdmin do begin
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]); if (TblENTER2ATITLE.Value EditENTER2.Text) and
(EditENTER2.Text '') then
BtnSAVEENTER2.Enabled := True else
BtnSAVEENTER2.Enabled := False;
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditENTER2Click(Sender: TObject); begin With DMAdmin do begin
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]); if (TblENTER2TITLE.Value EditENTER2.Text) and
procedure TFrmMain.BitBtn8Click(Sender: TObject); begin EditPERSONAL.Enabled := True; EditPERSONAL.SetFocus; end;
procedure TFrmMain.BitBtn9Click(Sender: TObject); begin EditPERSONAL.Text := ''; EditPERSONAL.Enabled := False; BtnSAVEPERSONAL.Enabled := False; end;
procedure TFrmMain.BtnSAVEPERSONALClick(Sender: TObject); begin DMAdmin.TblPERSONAL.Insert; DMAdmin.TblPERSONALID.Value := DMAdmin.TblPERSONAL.RecordCount + 1; DMAdmin.TblPERSONALFIO.Value := EditPERSONAL.Text; DMAdmin.TblPERSONAL.Post; DMAdmin.TblPERSONAL.Refresh; EditPERSONAL.Text := ''; EditPERSONAL.Enabled := False; BtnSAVEPERSONAL.Enabled := False; end;
procedure TFrmMain.EditPERSONALChange(Sender: TObject); begin With DMAdmin do begin
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]); if (TblPERSONALFIO.Value EditPERSONAL.Text) and
(EditPERSONAL.Text '') then
BtnSAVEPERSONAL.Enabled := True else
BtnSAVEPERSONAL.Enabled := False;
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditPERSONALKeyPress(Sender: TObject; var Key: Char); begin With DMAdmin do begin
procedure TFrmMain.BitBtn10Click(Sender: TObject); begin EditPTYPE.Enabled := True; EditPTYPE.SetFocus; end;
procedure TFrmMain.BitBtn11Click(Sender: TObject); begin EditPTYPE.Text := ''; EditPTYPE.Enabled := False; BtnSAVEPTYPE.Enabled := False; end;
procedure TFrmMain.BtnSAVEPTYPEClick(Sender: TObject); begin DMAdmin.TblPTYPE.Insert; DMAdmin.TblPTYPECODE.Value := DMAdmin.TblPTYPE.RecordCount + 1; DMAdmin.TblPTYPETITLE.Value := EditPTYPE.Text; DMAdmin.TblPTYPE.Post; DMAdmin.TblPTYPE.Refresh; EditPTYPE.Text := ''; EditPTYPE.Enabled := False; BtnSAVEPTYPE.Enabled := False; end;
procedure TFrmMain.EditPTYPEChange(Sender: TObject); begin With DMAdmin do begin
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]); if (TblPTYPETITLE.Value EditPTYPE.Text) and
(EditPTYPE.Text '') then
BtnSAVEPTYPE.Enabled := True else
BtnSAVEPTYPE.Enabled := False;
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditPTYPEKeyPress(Sender: TObject; var Key: Char); begin With DMAdmin do begin
procedure TFrmMain.BitBtn12Click(Sender: TObject); begin EditSTREET.Enabled := True; EditSTREET.SetFocus; end;
procedure TFrmMain.BitBtn13Click(Sender: TObject); begin EditSTREET.Text := ''; EditSTREET.Enabled := False; BtnSAVESTREET.Enabled := False; end;
procedure TFrmMain.BtnSAVESTREETClick(Sender: TObject); begin DMAdmin.TblSTREET.Insert; DMAdmin.TblSTREETCODE.Value := DMAdmin.TblSTREET.RecordCount + 1; DMAdmin.TblSTREETTITLE.Value := EditSTREET.Text; DMAdmin.TblSTREET.Post; DMAdmin.TblSTREET.Refresh; EditSTREET.Text := ''; EditSTREET.Enabled := False; BtnSAVESTREET.Enabled := False; end;
procedure TFrmMain.EditSTREETChange(Sender: TObject); begin With DMAdmin do begin
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]); if (TblSTREETTITLE.Value EditSTREET.Text) and
(EditSTREET.Text '') then
BtnSAVESTREET.Enabled := True else
BtnSAVESTREET.Enabled := False;
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditSTREETKeyPress(Sender: TObject; var Key: Char); begin With DMAdmin do begin
procedure TFrmMain.BitBtn14Click(Sender: TObject); begin EditVILLAGE.Enabled := True; EditVILLAGE.SetFocus; end;
procedure TFrmMain.BitBtn15Click(Sender: TObject); begin EditVILLAGE.Text := ''; EditVILLAGE.Enabled := False; BtnSAVEVILLAGE.Enabled := False; end;
procedure TFrmMain.BtnSAVEVILLAGEClick(Sender: TObject); begin DMAdmin.TblVILLAGE.Insert; DMAdmin.TblVILLAGECODE.Value := DMAdmin.TblVILLAGE.RecordCount + 1; DMAdmin.TblVILLAGETITLE.Value := EditVILLAGE.Text; DMAdmin.TblVILLAGE.Post; DMAdmin.TblVILLAGE.Refresh; EditVILLAGE.Text := ''; EditVILLAGE.Enabled := False; BtnSAVEVILLAGE.Enabled := False; end;
procedure TFrmMain.EditVILLAGEChange(Sender: TObject); begin With DMAdmin do begin
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]); if (TblVILLAGETITLE.Value EditVILLAGE.Text) and
(EditVILLAGE.Text '') then
BtnSAVEVILLAGE.Enabled := True else
BtnSAVEVILLAGE.Enabled := False;
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditVILLAGEKeyPress(Sender: TObject; var Key: Char); begin With DMAdmin do begin
end.
AdminDM.pas unit AdminDM;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables;
type TDMAdmin = class(TDataModule)
TblDATA: TTable;
DatSrcDATA: TDataSource;
TblYEARS: TTable;
DatSrcYEARS: TDataSource;
TblDATAYEARNUM: TFloatField;
TblDATANN: TFloatField;
TblDATAHISTORYNUM: TFloatField;
TblDATAFIO: TStringField;
TblDATABORNDATE: TDateField;
TblDATABORNTIMEH: TSmallintField;
TblDATABORNTIMEM: TSmallintField;
TblDATAENTERDATE: TDateField;
TblDATAENTERTIMEH: TSmallintField;
TblDATAENTERTIMEM: TSmallintField;
TblDATASEX: TSmallintField;
TblDATABODYMASS: TFloatField;
TblDATABODYLENGHT: TFloatField;
TblDATAAPGAR: TStringField;
TblDATADN: TSmallintField;
TblDATAENTER: TFloatField;
TblDATAENTER2: TSmallintField;
TblDATAENTERDS: TMemoField;
TblDATADS: TFloatField;
TblDATADSNOTE: TMemoField;
TblDATASTATUS: TFloatField;
TblDATASTATUSDATE: TDateField;
TblDATASTATUSTIME: TStringField;
TblDATASTATUSNOTE: TMemoField;
TblDATAADDRESS: TFloatField;
TblDATAVILLAGE: TFloatField;
TblDATASTREET: TFloatField;
TblDATAHOME: TStringField;
TblDATAFLAT: TStringField;
TblDATAPHONE: TStringField;
TblDATANOTE: TMemoField;
TblDATAOPERATION: TFloatField;
TblDATAYEARs: TIntegerField;
TblDATABORNTIMEs: TStringField;
TblDATAENTERTIMEs: TStringField;
TblDATASEXs: TStringField;
TblDATADNs: TStringField;
TblENTER: TTable;
DatSrcENTER: TDataSource;
TblENTER2: TTable;
DatSrcENTER2: TDataSource;
TblDATAENTERs: TStringField;
TblDATAENTER2s: TStringField;
TblDS: TTable;
DatSrcDS: TDataSource;
TblDATADSs: TStringField;
TblDATASTATUSs: TStringField;
TblDATAADDRESSs: TStringField;
TblSTREET: TTable;
DatSrcSTREET: TDataSource;
TblVILLAGE: TTable;
DatSrcVILLAGE: TDataSource;
TblDATASTREETs: TStringField;
TblDATAVILLAGEs: TStringField;
TblDATA2: TTable;
DatSrcDATA2: TDataSource;
TblDATA2NN: TFloatField;
TblDATA2NEUROL1: TSmallintField;
TblDATA2NEUROL2: TSmallintField;
TblDATA2NEUROL3: TSmallintField;
TblDATA2NEUROL4: TSmallintField;
TblDATA2NEUROL5: TSmallintField;
TblDATA2NEUROL6: TSmallintField;
TblDATA2NEUROL7: TSmallintField;
TblDATA2NEUROL8: TSmallintField;
TblDATA2NEUROL9: TSmallintField;
TblDATA2NEUROL10: TSmallintField;
TblDATA2EXT1: TSmallintField;
TblDATA2EXT2: TSmallintField;
TblDATA2EXT3: TSmallintField;
TblDATA2EXT4: TSmallintField;
TblDATA2EXT5: TSmallintField;
TblDATA2EXT6: TSmallintField;
TblDATA2EXT7: TSmallintField;
TblDATA2EXT8: TSmallintField;
TblDATA2EXT9: TSmallintField;
TblDATA2EXT10: TSmallintField;
TblDATA2EXT11: TSmallintField;
TblDATA2NAMEs: TStringField;
TblENTERTITLE: TStringField;
TblENTERCODE: TSmallintField;
TblENTER2ENTERID: TSmallintField;
TblENTER2TITLE: TStringField;
TblENTER2CODE: TSmallintField;
TblDSTITLE: TStringField;
TblDSCODE: TFloatField;
TblSTREETTITLE: TStringField;
TblSTREETCODE: TFloatField;
TblVILLAGETITLE: TStringField;
TblVILLAGECODE: TFloatField;
TblENTER2ENTERs: TStringField;
TblENTERA: TTable;
DatSrcENTERA: TDataSource;
TblENTER2A: TTable;
DatSrcENTER2A: TDataSource;
TblENTER2AENTERID: TSmallintField;
TblENTER2ATITLE: TStringField;
TblENTER2ACODE: TSmallintField;
TblENTERATITLE: TStringField;
TblENTERACODE: TSmallintField;
TblENTER2AENTERs: TStringField;
TblPERSONAL: TTable;
DatSrcPERSONAL: TDataSource;
TblPTYPE: TTable;
DatSrcPTYPE: TDataSource;
TblPERSONALID: TSmallintField;
TblPERSONALFIO: TStringField;
TblPERSONALNAME1: TStringField;
TblPERSONALNAME2: TStringField;
TblPERSONALTYPE: TSmallintField;
TblPERSONALISACTIVE: TSmallintField;
TblPERSONALPSW: TStringField;
TblPTYPECODE: TSmallintField;
TblPTYPETITLE: TStringField;
TblPERSONALPTYPEs: TStringField; procedure DMAdminCreate(Sender: TObject); procedure TblDATACalcFields(DataSet: TDataSet); private
var DMAdmin: TDMAdmin;
procedure TDMAdmin.DMAdminCreate(Sender: TObject); begin TblDATA.Open; TblDATA2.Open; TblYEARS.Open; TblENTER.Open; TblENTER2.Open; TblDS.Open; TblSTREET.Open; TblVILLAGE.Open; TblENTERA.Open; TblENTER2A.Open; TblPERSONAL.Open; TblPTYPE.Open; end;
procedure TDMAdmin.TblDATACalcFields(DataSet: TDataSet); begin TblDATABORNTIMEs.Value := IntToStr(TblDATABORNTIMEH.Value) +
':' +
IntToStr(TblDATABORNTIMEM.Value); TblDATAENTERTIMEs.Value := IntToStr(TblDATAENTERTIMEH.Value) +
IntToStr(TblDATAENTERTIMEM.Value);
Case TblDATASEX.AsInteger of
0:
TblDATASexs.Value := 'МУЖ';
1:
TblDATASexs.Value := 'ЖЕН'; else
TblDATASexs.Value := '???'; end; { Case }
Case TblDATADN.AsInteger of
TblDATADNs.Value := 'ДОН';
TblDATADNs.Value := 'НЕД'; else
TblDATADNs.Value := '???'; end; { Case }
Case TblDATASTATUS.AsInteger of
TblDATASTATUSs.Value := 'БЕЗ ИЗМЕНЕНИЙ';
TblDATASTATUSs.Value := 'ПЕРЕВЕДЕН';
2:
TblDATASTATUSs.Value := 'УМЕР'; else
TblDATASTATUSs.Value := '???'; end; { Case }
Case TblDATAADDRESS.AsInteger of
TblDATAADDRESSs.Value := 'СУРГУТ';
TblDATAADDRESSs.Value := 'РАЙОН'; else
TblDATAADDRESSs.Value := '???'; end; { Case }
end;
end. ----------------------- [pic]
[pic]
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9