Курсовые работы / ПРИС КП_И_1

procedure ComboBox1KeyPress(Sender: TObject; var Key:

Char);

uses

private

Windows, Messages, SysUtils, Variants, Classes, Graphics,

{ Private declarations }

Controls, Forms,

public

Dialogs, StdCtrls;

{ Public declarations }

type

end;

TfmUdDis = class(TForm)

var

Button1: TButton;

fmIzm: TfmIzm;

Button2: TButton;

implementation

Label1: TLabel;

{$R *.dfm}

Label2: TLabel;

procedure TfmIzm.Button2Click(Sender: TObject);

Label3: TLabel;

begin

procedure Button2Click(Sender: TObject);

Close;

procedure Button1Click(Sender: TObject);

end;

private

procedure TfmIzm.Button1Click(Sender: TObject);

{ Private declarations }

var a,m:string;

public

begin

{ Public declarations }

If Combobox1.Text='Методист' then

end;

begin

var

ADOQuery1.Active:=false;

fmUdDis: TfmUdDis;

AdoQuery1.SQL.Clear;

implementation

If (Edit2.Text=Edit3.Text)

uses Unit9, Unit4;

then

{$R *.dfm}

begin

procedure TfmUdDis.Button2Click(Sender: TObject);

ADOQuery1.SQL.Add('update Parol set

begin

p_parol='''+Edit2.Text+''' where P_P='+inttostr(2)+'');

Close;

ADOQuery1.ExecSQL;

end;

Close;

procedure TfmUdDis.Button1Click(Sender: TObject);

end

var a:string;

else

begin

Showmessage('Изменения не были внесены. Проверьте

a:=fmDisciplini.ADODataSet1.FieldValues['D_N'];

корректность ввода!') ;

fmDisciplini.ADOQuery1.SQL.Clear;

end;

fmDisciplini.ADOQuery1.SQL.Add('delete * from Disciplini

If Combobox1.Text='Администратор' then

where D_N='+a+'');

begin

fmDisciplini.ADOQuery1.ExecSQL;

ADOQuery1.Active:=false;

fmDisciplini.ADODataSet1.Active:=false;

AdoQuery1.SQL.Clear;

fmDisciplini.ADODataSet1.Active:=True;

If (Edit2.Text=Edit3.Text)

fmGrPrep.ADOQuery1.SQL.Clear;

then

fmGrPrep.ADOQuery1.SQL.Add('delete * from Svodnai where

begin

S_N='+a+'');

ADOQuery1.SQL.Add('update Parol set

fmGrPrep.ADOQuery1.ExecSQL;

p_parol='''+Edit2.Text+''' where P_P='+inttostr(1)+'');

fmGrPrep.ADODataSet1.Active:=false;

ADOQuery1.ExecSQL;

fmGrPrep.ADODataSet1.Active:=True;

fmIzm.Close;

close;

end

end;

else

end.

Showmessage('Изменения не были внесены. Проверьте

unit Unit24;

корректность ввода!') ;

interface

end;

uses

end;

Windows, Messages, SysUtils, Variants, Classes, Graphics,

procedure TfmIzm.FormShow(Sender: TObject);

Controls, Forms,

begin

Dialogs, StdCtrls;

Edit2.Clear;

type

edit3.Clear;

TfmUdPrep = class(TForm)

end;

Button1: TButton;

procedure TfmIzm.ComboBox1KeyPress(Sender: TObject; var

Button2: TButton;

Key: Char);

Label1: TLabel;

begin

Label2: TLabel;

case key of

fmPrepUd: TLabel;

'0'..'9':key:=#0;

procedure Button1Click(Sender: TObject);

end;

procedure Button2Click(Sender: TObject);

end;

private

end.

{ Private declarations }

unit Unit23;

public

interface

{ Public declarations }

61

end;

a:string;

var

begin

fmUdPrep: TfmUdPrep;

a:=fmGruppi.ADODataSet2.FieldValues['G_N'];

implementation

fmGruppi.ADOQuery1.SQL.Clear;

uses Unit2, Unit9;

fmGruppi.ADOQuery1.SQL.Add('delete * from Gruppi where

{$R *.dfm}

G_N='+a+'');

procedure TfmUdPrep.Button1Click(Sender: TObject); var

fmGruppi.ADOQuery1.ExecSQL;

a:string;

fmGrPrep.ADOQuery1.SQL.Clear;

begin

fmGrPrep.ADOQuery1.SQL.Add('delete * from Svodnai where

a:=fmPrepodavateli.ADODataSet1.FieldValues['P_tab_N'];

S_N='+a+'');

fmPrepodavateli.ADOQuery1.SQL.Clear;

fmGrPrep.ADOQuery1.ExecSQL;

fmPrepodavateli.ADOQuery1.SQL.Add('delete * from

fmGrPrep.ADODataSet1.Active:=false;

Prepodavateli where P_tab_N="'+a+'"');

fmGrPrep.ADODataSet1.Active:=True;

fmPrepodavateli.ADOQuery1.ExecSQL;

fmGruppi.ADODataSet2.Active:=false;

fmPrepodavateli.ADODataSet1.Active:=false;

fmGruppi.ADODataSet2.Active:=True;

fmPrepodavateli.ADODataSet1.Active:=True;

close;

fmGrPrep.ADOQuery1.SQL.Clear;

end;

fmGrPrep.ADOQuery1.SQL.Add('delete * from svodnai where

end.

S_N='+a+'');

unit Unit26;

fmGrPrep.ADOQuery1.ExecSQL;

interface

fmGrPrep.ADODataSet1.Active:=false;

uses

fmGrPrep.ADODataSet1.Active:=True;

Windows, Messages, SysUtils, Variants, Classes, Graphics,

close;

Controls, Forms,

end;

Dialogs, StdCtrls, Buttons;

procedure TfmUdPrep.Button2Click(Sender: TObject);

type

begin

TfmGP = class(TForm)

close;

Label1: TLabel;

end;

BitBtn1: TBitBtn;

end.

BitBtn2: TBitBtn;

unit Unit25;

procedure BitBtn1Click(Sender: TObject);

interface

procedure BitBtn2Click(Sender: TObject);

uses

private

Windows, Messages, SysUtils, Variants, Classes, Graphics,

{ Private declarations }

Controls, Forms,

public

Dialogs, StdCtrls;

{ Public declarations }

type

end;

TfmUdGR = class(TForm)

var

Button1: TButton;

fmGP: TfmGP;

Button2: TButton;

implementation

Label1: TLabel;

uses Unit9, Unit2;

Label2: TLabel;

{$R *.dfm}

fmPrepUd: TLabel;

procedure TfmGP.BitBtn1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

var

procedure Button1Click(Sender: TObject);

a:string;

private

begin

{ Private declarations }

a:=fmGrPrep.ADODataSet1.FieldValues['S_N'];

public

fmGrPrep.ADOQuery1.SQL.Clear;

{ Public declarations }

fmGrPrep.ADOQuery1.SQL.Add('delete * from Svodnai where

end;

S_N='+a+'');

var

fmGrPrep.ADOQuery1.ExecSQL;

fmUdGR: TfmUdGR;

fmGrPrep.ADODataSet1.Active:=false;

implementation

fmGrPrep.ADODataSet1.Active:=True;

uses Unit9, Unit3;

close;

{$R *.dfm}

end;

procedure TfmUdGR.Button2Click(Sender: TObject);

procedure TfmGP.BitBtn2Click(Sender: TObject);

begin

begin

Close;

close;

end;

end;

procedure TfmUdGR.Button1Click(Sender: TObject);

end.

var