Ақпараттық қауіпсіздік және компьютерлік жүйелерде ақпаратты қорғау

    LichTDomTel: TStringField;

    LichTRozhData: TStringField;

    LichTRozhMesto: TStringField;

    LichTPol: TStringField;

    KvaliTN: TIntegerField;

    KvaliTN2: TAutoIncField;

    KvaliTN1: TIntegerField;

    KvaliTPovMesto: TStringField;

    KvaliTPovS: TStringField;

    KvaliTPovPo: TStringField;

    KvaliTRaz: TFloatField;

    KvaliTKval: TStringField;

    SemTN: TIntegerField;

    SemTN1: TAutoIncField;

    SemTN2: TIntegerField;

    SemTDetFam: TStringField;

    SemTDetName: TStringField;

    SemTDetOtch: TStringField;

    SemTDetData: TStringField;

    GranTN: TIntegerField;

    GranTN2: TAutoIncField;

    GranTN1: TFloatField;

    GranTZagr: TStringField;

    GranTZagrS: TStringField;

    GranTZagrPo: TStringField;

    GranTZagrGoal: TStringField;

    GranTVoinOb: TBooleanField;

    GranTGoden: TBooleanField;

    GranTOsob: TMemoField;

    ObrTN: TIntegerField;

    ObrTN2: TAutoIncField;

    ObrTZaved: TStringField;

    ObrTN1: TIntegerField;

    ObrTZavedAdr: TStringField;

    ObrTSpec: TStringField;

    ObrTGodS: TStringField;

    ObrTGodPo: TStringField;

    ObrTDipSer: TStringField;

    ObrTDipNom: TStringField;

    ObrTDipTema: TStringField;

    SupTN: TIntegerField;

    SupTSup: TStringField;

    SupTSupFam: TStringField;

    SupTSupName: TStringField;

    SupTSupOtch: TStringField;

    obrazTN: TIntegerField;

    obrazTN2: TAutoIncField;

    obrazTN1: TIntegerField;

    obrazTObrSred: TStringField;

    obrazTObrSpec: TStringField;

    obrazTObrVis: TStringField;

    LangTN: TIntegerField;

    LangTN2: TAutoIncField;

    LangTLang: TStringField;

    LangTN1: TIntegerField;

    LangTLangUrov: TStringField;

    DBText23: TDBText;

    DBText24: TDBText;

    DBText25: TDBText;

    DBText26: TDBText;

    DBText28: TDBText;

    VoinTN: TIntegerField;

    VoinTVoinOb: TStringField;

    VoinTGoden: TStringField;

    VoinTVoinData: TStringField;

    VoinTOsob: TMemoField;

    RabTN: TIntegerField;

    RabTUvolData: TStringField;

    RabTPrinData: TStringField;

    RabTUvolOsnov: TStringField;

    RabTUvol: TStringField;

    Label33: TLabel;

    Query2: TQuery;

    N24: TMenuItem;

    N25: TMenuItem;

    N26: TMenuItem;

    N1: TMenuItem;

    N12: TMenuItem;

    N19: TMenuItem;

    Query1N1: TIntegerField;

    Query1N: TIntegerField;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

    procedure DBGrid1CellClick(Column: TColumn);

    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure Button13Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure Button14Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure DBGrid1DblClick(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N20Click(Sender: TObject);

    procedure N21Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N17Click(Sender: TObject);

    procedure N18Click(Sender: TObject);

    procedure N22Click(Sender: TObject);

    procedure N23Click(Sender: TObject);

    procedure PageControl1Changing(Sender: TObject;

      var AllowChange: Boolean);

    procedure FormActivate(Sender: TObject);

    procedure N25Click(Sender: TObject);

    procedure N26Click(Sender: TObject);

    procedure N19Click(Sender: TObject);

    procedure DBGrid5KeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit4, Unit7, Unit6, Unit8, Unit9, Unit10, Unit11;

 

 

 

 

 

{$R *.DFM}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

dbgrid1.DataSource:=SpisokS;

SpisokT.Refresh;

Form1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

form1.DBNavigator1.visible:=true;

SpisokT.Active:=true;

 

  end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

if form1.obrazTObrSred.Value='Орта' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Орта кәсіптік' then form5.CheckBox2.Checked:=true

else form5.CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Жоғары' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;

if form1.VoinTVoinOb.Value='Әскери міндетті' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;

if form1.RabTUvol.Value='Жұмыстан шықты' then form3.CheckBox1.Checked:=true else form3.CheckBox1.Checked:=false;

DBGrid1.SelectedRows.CurrentRowSelected:=true;

if form1.SpisokS.DataSet <> form1.Query1 then

Form1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

 

  begin  //начало вытрёпываниям  по поводу enabled :)

if (Button=nbPrior) or (Button=nbFirst) then

begin

SpisokT.Prior;

if SpisokT.bof then

begin

DBNavigator1.Controls[Ord(nbNext)].Enabled:=True;

DBNavigator1.Controls[Ord(nbLast)].Enabled:=True;

end

else

SpisokT.Next;

end;

if (Button=nbNext) or (Button=nbLast) then

begin

SpisokT.Next;

if SpisokT.Eof then

begin

DBNavigator1.Controls[Ord(nbFirst)].Enabled:=True;

DBNavigator1.Controls[Ord(nbPrior)].Enabled:=True;

end

else

SpisokT.Prior;

end;

end;

end;  //конец вытрёпываниям по  поводу enabled

 

 

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

try

if form1.VoinTVoinOb.Value='Әскери міндетті' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;

if form1.obrazTObrSred.Value='Орта' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Орта кәсіптік' then form5.CheckBox2.Checked:=true

else form5.CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Жоғары' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;

 

if form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;

if form1.SpisokS.DataSet <> form1.Query1 then

Form1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

  except

  end;

end;

 

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if form1.VoinTVoinOb.Value='Әскери міндетті' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;

if form1.obrazTObrSred.Value='Орта' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Орта кәсіптік' then form5.CheckBox2.Checked:=true

else form5.CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Жоғары' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;

 

if form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;

if form1.SpisokS.DataSet <> form1.Query1 then

Form1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

 

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var s:integer;

begin

spisokT.First;

while not spisokT.Eof do

SpisokT.next;

s:=spisokTN1.value+1;

spisokT.edit;

dbnavigator1.BtnClick(nbInsert);

form1.SpisokTN1.Value:=s;

dbnavigator1.BtnClick(nbrefresh);

form8.showmodal;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var r:integer;

begin

try

r:=messagedlg('Жоюға қарсы емессіз ба??',mtConfirmation,[mbOk,mbCancel],0);

if r=mrOk then begin

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "deti.db" where (n='+inttostr(SemTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "Voin.db" where (n='+inttostr(VoinTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "Zav.db" where (n='+inttostr(ObrTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "otp.db" where (n='+inttostr(form3.OtpTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "gran.db" where (n='+inttostr(GranTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "obraz.db" where (n='+inttostr(obrazTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "t3.db" where (n='+inttostr(LichTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "t4.db" where (n='+inttostr(RabTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "Kval.db" where (n='+inttostr(kvaliTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "Lang.db" where (n='+inttostr(LangTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "suprug.db" where (n='+inttostr(SupTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "t1.db" where (n='+inttostr(spisokTn.value)+')');

form1.Query1.ExecSQL; end;

DBNavigator1.BtnClick(nbrefresh);

except showmessage('Өзгерістерді сақтаңыз!!');

end;

end;

 

procedure TForm1.Button6Click(Sender: TObject);

begin

button6.Visible:=false;

form1.SpisokS.DataSet:=form1.SpisokT;

SpisokT.edit;

form1.DBGrid1.readOnly:=false;

button2.Enabled:=true;

button3.Enabled:=true;

button4.Enabled:=true;

button5.Enabled:=true;

button1.Enabled:=false;

button14.Enabled:=false;

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

try

SpisokT.edit;

DBNavigator1.BtnClick(nbPost);

button1.Enabled:=true;

button6.Visible:=true;

button2.Enabled:=false;

button3.Enabled:=false;

button4.Enabled:=false;

button5.Enabled:=false;

button1.Enabled:=true;

except;

end;

end;

 

procedure TForm1.Button5Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbCancel);

button1.Enabled:=true;

button6.Visible:=true;

button2.Enabled:=true;

button3.Enabled:=true;

button4.Enabled:=true;

button5.Enabled:=true;

button2.Enabled:=false;

button3.Enabled:=false;

button4.Enabled:=false;

button5.Enabled:=false;

button1.Enabled:=true;

end;

 

procedure TForm1.Button7Click(Sender: TObject);

begin

try

LichT.edit;

form10.showmodal;

except

  showmessage('Дұрыс мәлімет енгізіңіз!!!');

end;

end;

 

procedure TForm1.Button8Click(Sender: TObject);

begin

try

RabT.Edit;

Form3.showmodal;

except

  showmessage('Дұрыс мәлімет енгізіңіз!!!');

end;

end;

 

procedure TForm1.Button9Click(Sender: TObject);

begin

try

form4.showmodal;

except

  showmessage('Дұрыс мәлімет енгізіңіз!!!');

end;

 

end;

 

procedure TForm1.Button10Click(Sender: TObject);

begin

try

form5.showmodal;

except