Курсовые работы / ПРИС П _13
.pdfFDM.dNormVesh.CommandText:='select NV_ID, NV_kol, NV_vesh, NV_zvan, ZV_ID, ZV_Name, VD_ID, VD_Name, NV_data, NV_old from VeshDov, Zvanie, Norm_Vesh '+
'where (NV_vesh=VD_ID) and (NV_zvan=ZV_ID) and (NV_old=false) '+
'order by NV_data'; FDM.dNormVesh.Open;
end else
begin FDM.dNormVesh.Close;
FDM.dNormVesh.CommandText:='select NV_ID, NV_kol, NV_vesh, NV_zvan, ZV_ID, ZV_Name, VD_ID, VD_Name, NV_data, NV_old from VeshDov, Zvanie, Norm_Vesh '+
'where (NV_vesh=VD_ID) and (NV_zvan=ZV_ID)'+ 'order by NV_data';
FDM.dNormVesh.Open; end
end;
end.
unit Tabl_Sklad;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls;
type
TFTabl_Sklad = class(TForm) DBGrid1: TDBGrid; Button1: TButton;
Button2: TButton;
Button3: TButton;
DBEdit1: TDBEdit; GroupBox1: TGroupBox; Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel; DBText1: TDBText; DBText2: TDBText; DBText3: TDBText; DBText4: TDBText; Label11: TLabel; Label12: TLabel; Edit1: TEdit;
ComboBox1: TComboBox;
procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure ComboBox1Change(Sender: TObject);
private
{Private declarations } public
{Public declarations } end;
var
FTabl_Sklad: TFTabl_Sklad;
implementation
uses dm, Add_Sklad, Edit_Sklad;
{$R *.dfm}
procedure TFTabl_Sklad.Button3Click(Sender: TObject); begin
FDM.dSklad.Append; FAdd_Sklad.ShowModal;
end;
procedure TFTabl_Sklad.Button1Click(Sender: TObject);
begin FEdit_Sklad.max:=-1; FEdit_Sklad.Edit1.Text:=''; FEdit_Sklad.ShowModal; if FEdit_Sklad.b then begin
FDM.dSklad.Edit;
DBEdit1.Text:=IntToStr(StrToInt(DBEdit1.Text)+StrToInt(FEdit_Sklad.Ed it1.Text));
FDM.dSklad.Post;
end;
end;
procedure TFTabl_Sklad.Button2Click(Sender: TObject); begin
FEdit_Sklad.max:=StrToInt(DBEdit1.Text); FEdit_Sklad.Edit1.Text:=''; FEdit_Sklad.ShowModal;
if FEdit_Sklad.b then begin
FDM.dSklad.Edit; DBEdit1.Text:=IntToStr(StrToInt(DBEdit1.Text)-
StrToInt(FEdit_Sklad.Edit1.Text)); FDM.dSklad.Post;
end;
end;
procedure TFTabl_Sklad.FormActivate(Sender: TObject); begin
FDM.dSklad.Open;
end;
procedure TFTabl_Sklad.ComboBox1Change(Sender: TObject); var s:string;
begin
FDM.dSklad.Close; if Edit1.Text<>'' then
begin
FDM.dSklad.CommandText:='select SK_ID, SK_kol, SK_razm, SK_vesh, VD_ID, VD_Name, VD_Type '+
'from Sklad, VeshDov where (SK_vesh=VD_ID) and (VD_Name LIKE '+#39 + Edit1.Text+'%'+#39+') ';
end else
begin
FDM.dSklad.CommandText:='select SK_ID, SK_kol, SK_razm, SK_vesh, VD_ID, VD_Name, VD_Type '+
'from Sklad, VeshDov where (SK_vesh=VD_ID) ';
end;
if ComboBox1.ItemIndex<>4 then begin
case ComboBox1.ItemIndex of 0:s:='VD_Type'; 1:s:='VD_Name'; 2:s:='SK_razm'; 3:s:='SK_kol';
end;
FDM.dSklad.CommandText:=FDM.dSklad.CommandText+' order by
'+s;
end;
FDM.dSklad.Open;
end;
end.
unit Add_Sklad;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask, Grids, DBGrids;
type
TFAdd_Sklad = class(TForm)
32
DBLookupComboBox1: TDBLookupComboBox; DBEdit1: TDBEdit;
Button1: TButton;
Button2: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit; Label1: TLabel; Label2: TLabel; DBEdit4: TDBEdit; DBEdit5: TDBEdit;
procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormActivate(Sender: TObject);
private
{Private declarations } public
{Public declarations } end;
var
FAdd_Sklad: TFAdd_Sklad; b:boolean;
implementation
uses dm;
{$R *.dfm}
procedure TFAdd_Sklad.Button1Click(Sender: TObject); begin
if (DBLookupComboBox1.Text='') or (DBEdit1.Text='') then ShowMessage('Заполните все поля!')
else begin
FDM.dAddSklad.Close;
FDM.dAddSklad.Open;
FDM.dAddSklad.First;
b:=true;
while not FDM.dAddSklad.Eof do
if (DBEdit4.Text=DBEdit3.Text) and (DBEdit5.Text=DBEdit1.Text)
then
begin b:=false; break;
end else
FDM.dAddSklad.Next; if b then
begin DBEdit2.Text:='0'; FDM.dSklad.Post; FDM.dSklad.Close; FDM.dSklad.Open; FAdd_Sklad.Close;
end else
ShowMessage('Данное вещевое довольствие уже добавлено!');
end;
end;
procedure TFAdd_Sklad.Button2Click(Sender: TObject); begin
{DBEdit3.DataField:=''; DBEdit1.DataField:=''; } FAdd_Sklad.Close;
end;
procedure TFAdd_Sklad.FormClose(Sender: TObject; var Action: TCloseAction);
begin FDM.dSklad.Cancel; {DBEdit3.DataField:=''; DBEdit1.DataField:=''; }
end;
procedure TFAdd_Sklad.FormActivate(Sender: TObject); begin
{DBEdit3.DataField:='VD_ID'; DBEdit1.DataField:='SK_razm'; }
end;
end.
unit avtorization;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask;
type
TFavtorization = class(TForm) DBEdit2: TDBEdit; DBEdit3: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox; Edit1: TEdit;
Button1: TButton;
Button2: TButton;
DBEdit1: TDBEdit; OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); private
{Private declarations } public
{Public declarations } end;
var
Favtorization: TFavtorization; form_close:boolean;
implementation
uses dm, Menu, Tabl_Sluj, Tabl_VeshDov, Tabl_Zvan;
{$R *.dfm}
procedure TFavtorization.Button1Click(Sender: TObject); begin
if DBEdit2.Text=Edit1.Text then begin
form_close:=false; FMenu.Edit1.Text:=DBEdit1.Text; if DBEdit3.Text='guest' then
begin FMenu.N1.Visible:=false; FMenu.N7.Visible:=false;
end;
if DBEdit3.Text='manag' then begin
FMenu.N14.Visible:=false;
//FMenu.N7.Visible:=false; FTabl_Sluj.Button2.Enabled:=false; FTabl_Sluj.Button3.Enabled:=false; FTabl_VeshDov.Button2.Enabled:=false; FTabl_VeshDov.Button3.Enabled:=false; FTabl_Zvan.Button2.Enabled:=false; FTabl_Zvan.Button3.Enabled:=false;
end;
Favtorization.Close; end
else
ShowMessage('Логин или пароль введен неправильно!'); end;
procedure TFavtorization.FormActivate(Sender: TObject);
33
begin |
FDM.dZvan.Append; |
form_close:=true; |
DBEdit1.Enabled:=true; |
if OpenDialog1.Execute then |
Button1.Enabled:=false; |
begin |
Button2.Enabled:=false; |
FDM.ADOCon1.Close; |
Button3.Enabled:=false; |
|
Button4.Enabled:=true; |
FDM.ADOCon1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;D |
Button5.Enabled:=true; |
ata Source='+OpenDialog1.FileName+';Persist Security Info=False;'; |
end; |
FDM.ADOCon1.Open; |
|
FDM.dPols.Open; |
procedure TFTabl_Zvan.Button2Click(Sender: TObject); |
end; |
begin |
end; |
obnovl; |
|
if DBEdit2.Text='True' then |
procedure TFavtorization.Button2Click(Sender: TObject); |
ShowMessage('Запись не доступна!') |
begin |
else |
Favtorization.Close; |
begin |
end; |
|
|
Edit2.Text:=DBEdit3.Text; |
procedure TFavtorization.FormClose(Sender: TObject; |
FDM.dZvan.Edit; |
var Action: TCloseAction); |
DBEdit2.Text:='True'; |
begin |
FDM.dZvan.Post; |
if form_close then |
|
FMenu.Close; |
|
end; |
FDM.dZvan.Edit; |
|
DBEdit1.Enabled:=true; |
end. |
Button1.Enabled:=false; |
|
Button2.Enabled:=false; |
unit Tabl_Zvan; |
Button3.Enabled:=false; |
|
Button4.Enabled:=true; |
interface |
Button5.Enabled:=true; |
uses |
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, |
while (DBEdit3.Text<>Edit2.Text) and (not FDM.dZvan.Eof) do |
Forms, |
FDM.dZvan.Next; |
Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls; |
FDM.dZvan.Edit; |
|
DBEdit2.Text:='False'; |
type |
FDM.dZvan.Post; |
TFTabl_Zvan = class(TForm) |
end; |
DBGrid1: TDBGrid; |
end; |
Button1: TButton; |
|
Button2: TButton; |
procedure TFTabl_Zvan.Button3Click(Sender: TObject); |
Button3: TButton; |
begin |
DBEdit1: TDBEdit; |
obnovl; |
Button4: TButton; |
if DBEdit2.Text='True' then |
Button5: TButton; |
ShowMessage('Запись не доступна!') |
Label11: TLabel; |
else |
Edit1: TEdit; |
begin |
CheckBox1: TCheckBox; |
if MessageDlg('Вы действительно хотите удалить |
Timer1: TTimer; |
запись?',mtWarning,mbOKCancel,0) = mrOk then |
DBEdit2: TDBEdit; |
FDM.dZvan.Delete; |
DBEdit3: TDBEdit; |
end; |
Edit2: TEdit; |
end; |
procedure Button1Click(Sender: TObject); |
|
procedure Button2Click(Sender: TObject); |
procedure TFTabl_Zvan.Button4Click(Sender: TObject); |
procedure Button3Click(Sender: TObject); |
begin |
procedure Button4Click(Sender: TObject); |
FDM.dZvan.Post; |
procedure Button5Click(Sender: TObject); |
DBEdit1.Enabled:=false; |
procedure FormActivate(Sender: TObject); |
Button1.Enabled:=true; |
procedure Edit1Change(Sender: TObject); |
Button2.Enabled:=true; |
procedure Timer1Timer(Sender: TObject); |
Button3.Enabled:=true; |
procedure obnovl; |
Button4.Enabled:=false; |
private |
Button5.Enabled:=false; |
{ Private declarations } |
end; |
public |
|
{ Public declarations } |
procedure TFTabl_Zvan.Button5Click(Sender: TObject); |
end; |
begin |
|
FDM.dZvan.Cancel; |
var |
DBEdit1.Enabled:=false; |
FTabl_Zvan: TFTabl_Zvan; |
Button1.Enabled:=true; |
|
Button2.Enabled:=true; |
implementation |
Button3.Enabled:=true; |
|
Button4.Enabled:=false; |
uses dm; |
Button5.Enabled:=false; |
|
end; |
{$R *.dfm} |
|
|
procedure TFTabl_Zvan.FormActivate(Sender: TObject); |
procedure TFTabl_Zvan.Button1Click(Sender: TObject); |
begin |
begin |
FDM.dZvan.Close; |
|
34 |
FDM.dZvan.Open; |
procedure Timer1Timer(Sender: TObject); |
DBEdit1.Enabled:=false; |
procedure obnovl; |
Button1.Enabled:=true; |
private |
Button2.Enabled:=true; |
{ Private declarations } |
Button3.Enabled:=true; |
public |
Button4.Enabled:=false; |
{ Public declarations } |
Button5.Enabled:=false; |
end; |
end; |
|
|
var |
procedure TFTabl_Zvan.Edit1Change(Sender: TObject); |
FTabl_VeshDov: TFTabl_VeshDov; |
begin |
|
FDM.dZvan.Close; |
implementation |
if Edit1.Text<>'' then |
|
begin |
uses dm, Edit_VeshDov; |
FDM.dZvan.CommandText:='select * from Zvanie where (ZV_Name |
|
LIKE '+#39 + Edit1.Text+'%'+#39+') '; |
{$R *.dfm} |
end |
|
else |
procedure TFTabl_VeshDov.Button1Click(Sender: TObject); |
begin |
begin |
FDM.dZvan.CommandText:='select * from Zvanie '; |
FDM.dVeshDov.Append; |
end; |
FEdit_VeshDov.ShowModal; |
if CheckBox1.Checked then |
end; |
FDM.dZvan.CommandText:=FDM.dZvan.CommandText+' order by |
|
ZV_Name'; |
procedure TFTabl_VeshDov.Button2Click(Sender: TObject); |
FDM.dZvan.Open; |
begin |
end; |
obnovl; |
|
if DBEdit2.Text='True' then |
procedure TFTabl_Zvan.Timer1Timer(Sender: TObject); |
ShowMessage('Запись не доступна!') |
begin |
else |
obnovl; |
begin |
end; |
Edit2.Text:=DBEdit1.Text; |
|
FDM.dVeshDov.Edit; |
procedure TFTabl_Zvan.obnovl; |
DBEdit2.Text:='True'; |
begin |
FDM.dVeshDov.Post; |
Edit2.Text:=DBEdit3.Text; |
|
FDM.dZvan.Close; |
FDM.dVeshDov.Edit; |
FDM.dZvan.Open; |
FEdit_VeshDov.ShowModal; |
while (DBEdit3.Text<>Edit2.Text) and (not FDM.dZvan.Eof) do |
|
FDM.dZvan.Next; |
while (DBEdit1.Text<>Edit2.Text) and (not FDM.dVeshDov.Eof) do |
end; |
FDM.dVeshDov.Next; |
|
FDM.dVeshDov.Edit; |
end. |
DBEdit2.Text:='False'; |
|
FDM.dVeshDov.Post; |
unit Tabl_VeshDov; |
end; |
|
end; |
interface |
|
|
procedure TFTabl_VeshDov.Button3Click(Sender: TObject); |
uses |
begin |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, |
obnovl; |
Forms, |
if DBEdit2.Text='True' then |
Dialogs, Grids, DBGrids, DBCtrls, StdCtrls, Mask, ExtCtrls; |
ShowMessage('Запись не доступна!') |
|
else |
type |
begin |
TFTabl_VeshDov = class(TForm) |
if MessageDlg('Вы действительно хотите удалить |
DBGrid1: TDBGrid; |
запись?',mtWarning,mbOKCancel,0) = mrOk then |
GroupBox1: TGroupBox; |
FDM.dVeshDov.Delete; |
Label1: TLabel; |
end; |
Label2: TLabel; |
end; |
Label3: TLabel; |
|
DBText1: TDBText; |
procedure TFTabl_VeshDov.FormActivate(Sender: TObject); |
DBText2: TDBText; |
begin |
DBText3: TDBText; |
FDM.dVeshDov.Open; |
Button1: TButton; |
end; |
Button2: TButton; |
|
Button3: TButton; |
procedure TFTabl_VeshDov.ComboBox1Change(Sender: TObject); |
Label11: TLabel; |
var s:string; |
Label12: TLabel; |
begin |
Edit1: TEdit; |
|
ComboBox1: TComboBox; |
FDM.dVeshDov.Close; |
Timer1: TTimer; |
if Edit1.Text<>'' then |
DBEdit1: TDBEdit; |
begin |
Edit2: TEdit; |
FDM.dVeshDov.CommandText:='select * from VeshDov where |
DBEdit2: TDBEdit; |
(VD_Name LIKE '+#39 + Edit1.Text+'%'+#39+') '; |
procedure Button1Click(Sender: TObject); |
end |
procedure Button2Click(Sender: TObject); |
else |
procedure Button3Click(Sender: TObject); |
begin |
procedure FormActivate(Sender: TObject); |
FDM.dVeshDov.CommandText:='select * from VeshDov '; |
procedure ComboBox1Change(Sender: TObject); |
end; |
|
35 |
if ComboBox1.ItemIndex<>3 then |
interface |
begin |
|
case ComboBox1.ItemIndex of |
uses |
0:s:='VD_Name'; |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, |
1:s:='VD_Type'; |
Forms, |
2:s:='VD_srokisp'; |
Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Mask; |
end; |
|
FDM.dVeshDov.CommandText:=FDM.dVeshDov.CommandText+' |
type |
order by '+s; |
TFTabl_Sluj = class(TForm) |
end; |
DBGrid1: TDBGrid; |
FDM.dVeshDov.Open; |
Button1: TButton; |
end; |
Button2: TButton; |
|
Button3: TButton; |
|
GroupBox1: TGroupBox; |
procedure TFTabl_VeshDov.obnovl; |
Label7: TLabel; |
begin |
Label8: TLabel; |
Edit2.Text:=DBEdit1.Text; |
Label9: TLabel; |
FDM.dVeshDov.Close; |
Label10: TLabel; |
FDM.dVeshDov.Open; |
DBText7: TDBText; |
while (DBEdit1.Text<>Edit2.Text) and (not FDM.dVeshDov.Eof) do |
DBText8: TDBText; |
FDM.dVeshDov.Next; |
DBText9: TDBText; |
end; |
DBText10: TDBText; |
|
GroupBox3: TGroupBox; |
procedure TFTabl_VeshDov.Timer1Timer(Sender: TObject); |
Label1: TLabel; |
begin |
Label2: TLabel; |
obnovl; |
Label3: TLabel; |
end; |
Label4: TLabel; |
|
Label5: TLabel; |
end. |
Label6: TLabel; |
|
DBText1: TDBText; |
unit Tabl_Vydashi; |
DBText2: TDBText; |
|
DBText3: TDBText; |
interface |
DBText4: TDBText; |
|
DBText5: TDBText; |
uses |
DBText6: TDBText; |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, |
DBEdit1: TDBEdit; |
Forms, |
DBEdit2: TDBEdit; |
Dialogs, StdCtrls, Grids, DBGrids; |
Edit1: TEdit; |
|
Label11: TLabel; |
type |
Label12: TLabel; |
TFTabl_Vydashi = class(TForm) |
ComboBox1: TComboBox; |
Button1: TButton; |
DBEdit3: TDBEdit; |
DBGrid1: TDBGrid; |
Edit2: TEdit; |
procedure Button1Click(Sender: TObject); |
Timer1: TTimer; |
procedure FormActivate(Sender: TObject); |
procedure FormResize(Sender: TObject); |
private |
procedure Button1Click(Sender: TObject); |
{ Private declarations } |
procedure Button2Click(Sender: TObject); |
public |
procedure FormActivate(Sender: TObject); |
{ Public declarations } |
procedure Button3Click(Sender: TObject); |
end; |
procedure ComboBox1Change(Sender: TObject); |
|
procedure obnovl; |
var |
procedure Timer1Timer(Sender: TObject); |
FTabl_Vydashi: TFTabl_Vydashi; |
private |
|
{ Private declarations } |
implementation |
public |
|
{ Public declarations } |
uses dm, Edit_Vydashi; |
end; |
{$R *.dfm} |
var |
|
FTabl_Sluj: TFTabl_Sluj; |
procedure TFTabl_Vydashi.Button1Click(Sender: TObject); |
|
begin |
implementation |
FDM.dVydashi.Append; |
|
FEdit_Vydashi.ShowModal; |
uses dm, Edit_Sluj; |
FDM.dVydashi.Close; |
|
FDM.dVydashi.Open; |
{$R *.dfm} |
end; |
|
|
procedure TFTabl_Sluj.obnovl; |
procedure TFTabl_Vydashi.FormActivate(Sender: TObject); |
begin |
begin |
Edit2.Text:=DBEdit1.Text; |
FDM.dVydashi.Close; |
FDM.dSluj.Close; |
FDM.dVydashi.Open; |
FDM.dSluj.Open; |
end; |
while (DBEdit1.Text<>Edit2.Text) and (not FDM.dSluj.Eof) do |
|
FDM.dSluj.Next; |
end. |
end; |
unit Tabl_Sluj; |
procedure TFTabl_Sluj.FormResize(Sender: TObject); |
|
begin |
|
36 |
GroupBox3.Left:=FTabl_Sluj.Width-315; |
procedure TFTabl_Sluj.ComboBox1Change(Sender: TObject); |
GroupBox1.Left:=FTabl_Sluj.Width-315; |
var s:string; |
Button1.Left:=FTabl_Sluj.Width-315; |
begin |
Button2.Left:=FTabl_Sluj.Width-315; |
FDM.dSluj.Close; |
Button3.Left:=FTabl_Sluj.Width-315; |
if Edit1.Text<>'' then |
DBGrid1.Width:=FTabl_Sluj.Width-322; |
begin |
end; |
FDM.dSluj.CommandText:='SELECT Voen_Sluj.* , ZV_ID, |
|
ZV_Name '+ |
procedure TFTabl_Sluj.Button1Click(Sender: TObject); |
'FROM Zvanie, Voen_Sluj where (Zvanie.ZV_ID = Voen_Sluj.VS_zvan) |
begin |
and (VS_F LIKE '+#39 + Edit1.Text+'%'+#39+') '; |
FDM.dSluj.Append; |
end |
with FEdit_Sluj do |
else |
begin |
begin |
DBEdit4.Text:=DateToStr(DateTimePicker1.Date); |
FDM.dSluj.CommandText:='SELECT Voen_Sluj.* , ZV_ID, |
DBComboBox1.ItemIndex:=0; |
ZV_Name '+ |
end; |
'FROM Zvanie, Voen_Sluj where (Zvanie.ZV_ID = Voen_Sluj.VS_zvan) '; |
FEdit_Sluj.ShowModal; |
end; |
end; |
if ComboBox1.ItemIndex<>5 then |
|
begin |
procedure TFTabl_Sluj.Button2Click(Sender: TObject); |
case ComboBox1.ItemIndex of |
begin |
0:s:='VS_F'; |
obnovl; |
1:s:='VS_I'; |
if DBEdit3.Text='True' then |
2:s:='VS_O'; |
ShowMessage('Запись не доступна!') |
3:s:='VS_dr'; |
else |
4:s:='ZV_Name'; |
begin |
end; |
Edit2.Text:=DBEdit1.Text; |
FDM.dSluj.CommandText:=FDM.dSluj.CommandText+' order by '+s; |
|
end; |
FDM.dSluj.Edit; |
FDM.dSluj.Open; |
DBEdit3.Text:='True'; |
end; |
FDM.dSluj.Post; |
|
FDM.dSluj.Edit; |
procedure TFTabl_Sluj.Timer1Timer(Sender: TObject); |
FEdit_Sluj.ShowModal; |
begin |
|
obnovl; |
while (DBEdit1.Text<>Edit2.Text) and (not FDM.dSluj.Eof) do |
end; |
FDM.dSluj.Next; |
|
|
end. |
FDM.dSluj.Edit; |
|
DBEdit3.Text:='False'; |
unit DM; |
FDM.dSluj.Post; |
|
end; |
interface |
end; |
|
|
uses |
procedure TFTabl_Sluj.FormActivate(Sender: TObject); |
SysUtils, Classes, DB, ADODB; |
begin |
|
FDM.dSluj.Close; |
type |
FDM.dSluj.Open; |
TFDM = class(TDataModule) |
FDM.dZvan.Close; |
ADOCon1: TADOConnection; |
FDM.dZvan.Open; |
dsSluj: TDataSource; |
end; |
dSluj: TADODataSet; |
|
dZvan: TADODataSet; |
procedure TFTabl_Sluj.Button3Click(Sender: TObject); |
dsZvan: TDataSource; |
begin |
dDeleteSluj: TADODataSet; |
obnovl; |
dsDeleteSluj: TDataSource; |
if DBEdit3.Text='True' then |
dVeshDov: TADODataSet; |
ShowMessage('Запись не доступна!') |
dsVeshDov: TDataSource; |
else |
dNormVesh: TADODataSet; |
begin |
dsNormVesh: TDataSource; |
if DBEdit1.Text<>'' then |
dDeleteNormVesh: TADODataSet; |
begin |
dsDeleteNormVesh: TDataSource; |
if MessageDlg('Вы действительно хотите удалить |
dSklad: TADODataSet; |
запись?',mtWarning,mbOKCancel,0) = mrOk then |
dsSklad: TDataSource; |
begin |
dAddSklad: TADODataSet; |
FDM.dDeleteSluj.Close; |
dsAddSklad: TDataSource; |
FDM.dDeleteSluj.Open; |
dVydashi: TADODataSet; |
FDM.dDeleteSluj.First; |
dsVydashi: TDataSource; |
while DBEdit1.Text<>DBEdit2.Text do |
dEditVydashi: TADODataSet; |
FDM.dDeleteSluj.Next; |
dsEditVydashi: TDataSource; |
FDM.dDeleteSluj.Delete; |
dAppVydashi: TADODataSet; |
FDM.dSluj.Close; |
dsAppVydashi: TDataSource; |
FDM.dSluj.Open; |
dPodbor: TADODataSet; |
end; |
dsPodbor: TDataSource; |
end |
dEditNorm: TADODataSet; |
else |
dsEditNorm: TDataSource; |
ShowMessage('Таблица пуста!'); |
dPodborSklad: TADODataSet; |
end; |
dsPodborSklad: TDataSource; |
end; |
dPodborAll: TADODataSet; |
|
dsPodborAll: TDataSource; |
|
37 |
dReport_Vydashi: TADODataSet; dsReport_Vydashi: TDataSource; dPols: TADODataSet;
dsPols: TDataSource; dsChange_of_date: TDataSource; qChange_of_date: TADOQuery; dsReportObesp: TDataSource; qReportObesp: TADOQuery;
private
{Private declarations } public
{Public declarations } end;
var
FDM: TFDM;
implementation
{$R *.dfm}
end.
unit Edit_NormVesh;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask;
type
TFEdit_NormVesh = class(TForm) GroupBox1: TGroupBox; Label1: TLabel;
Label2: TLabel;
Label3: TLabel; DBEdit3: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox; Button1: TButton;
Button2: TButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); private
{Private declarations } public
{Public declarations } end;
var
FEdit_NormVesh: TFEdit_NormVesh;
implementation
uses dm;
{$R *.dfm}
procedure TFEdit_NormVesh.Button1Click(Sender: TObject); begin
if (DBLookupComboBox1.Text<>'') and (DBLookupComboBox2.Text<>'') and (DBEdit3.Text<>'') then
begin DBEdit1.Text:=DateToStr(Date); FDM.dEditNorm.Close; FDM.dEditNorm.Open; FDM.dEditNorm.First;
while not(FDM.dEditNorm.Eof) do begin
if (IntToStr(DBLookupComboBox1.KeyValue)=DBEdit5.Text) and (IntToStr(DBLookupComboBox2.KeyValue)=DBEdit4.Text) and
(DBEdit2.Text='False') then begin
FDM.dEditNorm.Edit;
DBEdit2.Text:='True';
FDM.dEditNorm.Post;
end;
FDM.dEditNorm.Next;
end;
FDM.dNormVesh.Post;
FEdit_NormVesh.Close; end
else
ShowMessage('Заполните все поля!'); end;
procedure TFEdit_NormVesh.Button2Click(Sender: TObject); begin
FEdit_NormVesh.Close; end;
procedure TFEdit_NormVesh.FormClose(Sender: TObject; var Action: TCloseAction);
begin FDM.dNormVesh.Cancel; FDM.dNormVesh.Close; FDM.dNormVesh.Open;
end;
end.
unit Edit_Sklad;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFEdit_Sklad = class(TForm) Button1: TButton;
Button2: TButton; Edit1: TEdit;
procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char); private
{Private declarations } public
max:integer;
b:boolean;
{Public declarations } end;
var
FEdit_Sklad: TFEdit_Sklad;
implementation
uses dm;
{$R *.dfm}
procedure TFEdit_Sklad.Button1Click(Sender: TObject); begin
b:=true;
if Edit1.Text<>'' then if max=-1 then
begin FEdit_Sklad.Close;
end else
begin
if StrToInt(Edit1.Text) > max then ShowMessage('Не достаточно на складе!')
else FEdit_Sklad.Close;
38
end
end;
procedure TFEdit_Sklad.Button2Click(Sender: TObject); begin
b:=false; FEdit_Sklad.Close;
end;
procedure TFEdit_Sklad.Edit1KeyPress(Sender: TObject; var Key: Char); begin
if not (Key in ['0'..'9', #8])then Key:=#0; end;
end.
unit Edit_Sluj;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, ComCtrls;
type
TFEdit_Sluj = class(TForm) GroupBox1: TGroupBox; GroupBox3: TGroupBox; Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; Button1: TButton; Button2: TButton;
DBComboBox1: TDBComboBox; Label1: TLabel;
DBLookupComboBox1: TDBLookupComboBox; DateTimePicker1: TDateTimePicker;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button2Click(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject); procedure DBEdit1Change(Sender: TObject);
private
{Private declarations } public
{Public declarations } end;
var
FEdit_Sluj: TFEdit_Sluj;
implementation
uses dm, Math;
{$R *.dfm}
procedure TFEdit_Sluj.Button1Click(Sender: TObject); begin
FDM.dSluj.Post;
FEdit_Sluj.Close; end;
procedure TFEdit_Sluj.FormClose(Sender: TObject; var Action: TCloseAction);
begin FDM.dSluj.Cancel; FDM.dSluj.Close; FDM.dSluj.Open;
end;
procedure TFEdit_Sluj.Button2Click(Sender: TObject); begin
FEdit_Sluj.Close; end;
procedure TFEdit_Sluj.DateTimePicker1Change(Sender: TObject); begin
DBEdit4.Text:=DateToStr(DateTimePicker1.Date);
end;
procedure TFEdit_Sluj.DBEdit1Change(Sender: TObject); begin
if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBEdit3.Text<>'') and (DBEdit4.Text<>'') and (DBEdit6.Text<>'') and (DBEdit7.Text<>'') and (DBEdit8.Text<>'') and (DBEdit9.Text<>'') and (DBEdit10.Text<>'') and (DBLookupComboBox1.Text<>'') and (DBComboBox1.Text<>'')
then Button1.Enabled:=true
else Button1.Enabled:=False;
end;
end.
unit Edit_VeshDov;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask;
type
TFEdit_VeshDov = class(TForm) GroupBox1: TGroupBox; Label1: TLabel;
Label2: TLabel;
Label3: TLabel; DBEdit1: TDBEdit; DBEdit3: TDBEdit; Button1: TButton; Button2: TButton;
DBComboBox1: TDBComboBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); private
{Private declarations } public
{Public declarations } end;
var
FEdit_VeshDov: TFEdit_VeshDov;
implementation
uses dm;
{$R *.dfm}
procedure TFEdit_VeshDov.Button1Click(Sender: TObject); begin
FDM.dVeshDov.Post;
FEdit_VeshDov.Close; end;
39
procedure TFEdit_VeshDov.Button2Click(Sender: TObject); begin
FEdit_VeshDov.Close; end;
procedure TFEdit_VeshDov.FormClose(Sender: TObject; var Action: TCloseAction);
begin FDM.dVeshDov.Cancel;
end;
end.
unit Edit_Vydashi;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ComCtrls;
type
TFEdit_Vydashi = class(TForm) Edit1: TEdit;
Button1: TButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit2: TEdit; Label4: TLabel; Button2: TButton; DBEdit6: TDBEdit; Label5: TLabel; DBEdit7: TDBEdit; DBEdit8: TDBEdit; Label6: TLabel; DBEdit9: TDBEdit;
DateTimePicker1: TDateTimePicker; DBEdit10: TDBEdit;
Button3: TButton; Label7: TLabel; DBEdit11: TDBEdit; DBGrid1: TDBGrid; DBEdit12: TDBEdit; DBText1: TDBText; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Edit3: TEdit; DBEdit13: TDBEdit; Button4: TButton;
procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Edit1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Edit3KeyPress(Sender: TObject; var Key: Char); procedure Button4Click(Sender: TObject);
procedure FormActivate(Sender: TObject); private
{Private declarations } public
{Public declarations } end;
var
FEdit_Vydashi: TFEdit_Vydashi;
implementation
uses dm, Edit_VydashiFIO, Edit_VydashiVesh;
{$R *.dfm}
procedure TFEdit_Vydashi.Button1Click(Sender: TObject); begin
FDM.dSluj.Close;
FDM.dSluj.Open;
if DBEdit1.Text<>'' then begin
while DBEdit1.Text<>DBEdit5.Text do FDM.dSluj.Next;
end; FEdit_VydashiFIO.ShowModal; if FEdit_VydashiFIO.id=1 then
begin
Edit1.Text:=DBEdit2.Text+' '+DBEdit3.Text+' '+DBEdit4.Text; DBEdit1.Text:=DBEdit5.Text;
Button2.Enabled:=true;
Edit2.Enabled:=true;
end;
end;
procedure TFEdit_Vydashi.Button2Click(Sender: TObject); begin
FDM.dVeshDov.Close;
FDM.dVeshDov.Open; if DBEdit8.Text<>'' then
begin
while DBEdit8.Text<>DBEdit7.Text do FDM.dVeshDov.Next;
end; FEdit_VydashiVesh.ShowModal; if FEdit_VydashiVesh.id=1 then
begin
Edit2.Text:=DBEdit9.Text+': '+DBEdit6.Text; DBEdit8.Text:=DBEdit7.Text;
end end;
procedure TFEdit_Vydashi.Button3Click(Sender: TObject); begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') then begin
DBEdit10.Text:=DateToStr(DateTimePicker1.Date);
DBEdit13.Text:=Edit3.Text;
FDM.dVydashi.Post;
FEdit_Vydashi.Close; end;
end;
procedure TFEdit_Vydashi.Edit1Change(Sender: TObject); begin
Label11.Visible:=false;
Edit3.Enabled:=true;
if (Edit1.Text<>'') and (Edit2.Text<>'') then begin
Label9.Visible:=true;
Label10.Visible:=true;
DBText1.Visible:=true;
Edit3.Visible:=true;
if DBEdit9.Text='Обувь' then DBEdit11.DataField:='VS_rzOb'
else if DBEdit9.Text='Брюки' then DBEdit11.DataField:='VS_rzBrjuk'
else if DBEdit9.Text='Верхняя одежда' then DBEdit11.DataField:='VS_rzVerhOd'
else if DBEdit9.Text='Головной убор' then DBEdit11.DataField:='VS_rzFuraj';
FDM.dEditVydashi.Close;
FDM.dEditVydashi.CommandText:='SELECT Sklad.SK_kol,
Sklad.SK_razm, Sklad.SK_vesh, Sklad.SK_ID '+
'FROM Sklad '+
40
'WHERE (((Sklad.SK_razm)='+DBEdit11.Text+') AND |
private |
((Sklad.SK_vesh)='+DBEdit7.Text+'));'; |
{ Private declarations } |
FDM.dEditVydashi.Open; |
public |
if (DBText1.Caption='') or(DBText1.Caption='0') then |
id:integer; |
begin |
{ Public declarations } |
Label11.Visible:=true; |
end; |
DBText1.Visible:=false; |
|
Edit3.Enabled:=false; |
var |
end; |
FEdit_VydashiFIO: TFEdit_VydashiFIO; |
end |
implementation |
else |
|
begin |
uses dm; |
Label9.Visible:=false; |
|
Label10.Visible:=false; |
{$R *.dfm} |
DBText1.Visible:=false; |
|
Edit3.Visible:=false; |
procedure TFEdit_VydashiFIO.DBGrid1DblClick(Sender: TObject); |
end; |
begin |
|
id:=1; |
|
FEdit_VydashiFIO.Close; |
end; |
end; |
procedure TFEdit_Vydashi.FormClose(Sender: TObject; |
procedure TFEdit_VydashiFIO.FormActivate(Sender: TObject); |
var Action: TCloseAction); |
begin |
begin |
id:=0; |
FDM.dEditVydashi.Close; |
end; |
FDM.dVydashi.Cancel; |
|
end; |
end. |
procedure TFEdit_Vydashi.Edit3KeyPress(Sender: TObject; var Key: |
unit Edit_VydashiVesh; |
Char); |
|
begin |
interface |
if not (Key in ['0'..'9', #8])then Key:=#0 |
|
else |
uses |
begin |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, |
if key<>#8 then |
Forms, |
if StrToInt(Edit3.Text+key)>StrToInt(DBText1.Caption) then Key:=#0 |
Dialogs, Grids, DBGrids; |
end |
|
end; |
type |
|
TFEdit_VydashiVesh = class(TForm) |
procedure TFEdit_Vydashi.Button4Click(Sender: TObject); |
DBGrid1: TDBGrid; |
begin |
procedure DBGrid1DblClick(Sender: TObject); |
FEdit_Vydashi.Close; |
procedure FormActivate(Sender: TObject); |
end; |
private |
|
{ Private declarations } |
procedure TFEdit_Vydashi.FormActivate(Sender: TObject); |
public |
begin |
id:integer; |
Edit1.Text:=''; |
{ Public declarations } |
Edit2.Text:=''; |
end; |
Edit3.Text:=''; |
|
Label9.Visible:=false; |
var |
Label10.Visible:=false; |
FEdit_VydashiVesh: TFEdit_VydashiVesh; |
Label11.Visible:=false; |
|
DBText1.Visible:=false; |
implementation |
Edit3.Visible:=false; |
|
end; |
uses dm; |
end. |
{$R *.dfm} |
unit Edit_VydashiFIO; |
procedure TFEdit_VydashiVesh.DBGrid1DblClick(Sender: TObject); |
|
begin |
interface |
id:=1; |
|
FEdit_VydashiVesh.Close; |
uses |
end; |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, |
|
Forms, |
procedure TFEdit_VydashiVesh.FormActivate(Sender: TObject); |
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls; |
begin |
|
id:=0; |
type |
end; |
TFEdit_VydashiFIO = class(TForm) |
|
DBGrid1: TDBGrid; |
end. |
procedure DBGrid1DblClick(Sender: TObject); |
|
procedure FormActivate(Sender: TObject); |
|
41