Курсовые работы / ПРИС КП_И_1
.pdf+' and S_Disciplina=D_N and left(p_FIO,'+n+')='''+d+''' Group by P_FIO,C_Kategoria, D_N_Semestra';
end;
procedure TfmopPrep.Button1Click(Sender: TObject); begin
Close;
end;
procedure TfmopPrep.Button2Click(Sender: TObject); var d,n:string;
begin d:=fmOplata.Combobox3.Items[fmOplata.Combobox2.ItemInde x];
n:=inttostr(length(d));
ADODataSet1.Active:=false; ADODataSet1.CommandText:='select P_FIO, C_Kategoria,'+
'
Sum((iif(D_RZ,''1'',''0'')+iif(D_ikzamen,''1'',''0''))*G_kolvo+(D_L aboratornii+D_Practica+D_Lekcii)*C_Tarif_v_chas)'
+' as result from Categoria, Disciplini, Gruppi, Prepodavateli, Svodnai'+
' where P_Kategoria=C_N and S_Prepodavatel=P_Tab_N and S_Gruppa=G_N and S_Disciplina=D_N and left(p_FIO,'+n+')='''+d+''' Group by P_FIO,C_Kategoria';
ADODataSet1.Active:=true;
DBGrid1.Columns[2].Visible:=false;
end;
end.
unit Unit20; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit1, ADODB, DB, Grids, DBGrids; type
TIzmParol = class(TForm) Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
ComboBox1: TComboBox; Label1: TLabel;
Button2: TButton; Label2: TLabel; Label3: TLabel; Label4: TLabel;
ADODataSet1: TADODataSet; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);
private
{Private declarations } public
{Public declarations } end;
var
IzmParol: TIzmParol; implementation
{$R *.dfm}
procedure TIzmParol.Button1Click(Sender: TObject); begin
close;
end;
procedure TIzmParol.Button2Click(Sender: TObject); var a,m:string;
begin
If Combobox1.Text='Методист' then begin
ADOQuery1.Active:=false;
AdoQuery1.SQL.Clear;
If (edit1.Text=m) and (Edit2.Text=Edit3.Text) then
begin
ADOQuery1.SQL.Add('update Parol set p_parol='''+Edit2.Text+'''where P_Parol='+a+'');
ADOQuery1.ExecSQL; end
else
Showmessage('Изменения не были внесены. Проверьте корректность ввода!') ;
end;
end;
end.
unit Unit21; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TfmHelp = class(TForm) Button1: TButton; ListBox1: TListBox;
procedure Button1Click(Sender: TObject); private
{Private declarations } public
{Public declarations } end;
var
fmHelp: TfmHelp; implementation {$R *.dfm}
procedure TfmHelp.Button1Click(Sender: TObject); begin
Close;
end;
end.
unit Unit22; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit8, DB, ADODB; type
TfmIzm = class(TForm) ComboBox1: TComboBox; Label1: TLabel;
Edit2: TEdit;
Edit3: TEdit; Label3: TLabel; Label4: TLabel; Button1: TButton; Button2: TButton;
ADOQuery1: TADOQuery;
procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject);
60
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 |
|
62