Разработка информационно-справочной системы по учету вагонов на подъездном пути предприятия
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
TForm8.addExecute(Sender: TObject);
begin
Form5.Show;
end;
procedure TForm8.editExecute(Sender: TObject);
begin
if (DataModule2.QSelUs[ST.id]=Null) then
begin
ShowMessage(Нечего редактировать);
EditMode4 := false;
end
else
begin
EditMode4:=true;
Form5.Show;
end;
end;
procedure TForm8.delExecute(Sender: TObject);
begin
if (DataModule2.QSelUs[ST.id]=Null) then
begin
ShowMessage(Нечего удалять);
EditMode4 := false;
end
else
begin
Tbl:=Stoimost;
pole1 := id;
pole2 := key_vid_uslug;
pole3 := key_ves;
pole4 := stoimost;
pole5 := ;
pole6 := ;
pole7 := ;
pole8 := ;
pole9 := ;
pole10 := ;
pole11 := ;
pole12 := ;
pole13 := ;
ForDel := DataModule2.QSelUs[ST.id];
DelZapros;
ShowZapros();
TBL:=Uslugi_sv;
end;
end;
procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if EditMode3 then
begin
EditMode3:=false;
end;
Tbl:=Operations_s_vagonom;
end;
procedure TForm8.Edit1Exit(Sender: TObject);
begin
try
strtoint(Edit1.Text);
except
ShowMessage(Здесь должно быть число!!);
Edit1.SetFocus;
end;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Menus, DBGrids;
type
TForm9 = class(TForm)
GroupBox1: TGroupBox;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
DBGrid1: TDBGrid;
N5: TMenuItem;
N6: TMenuItem;
procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses Unit2, Unit10, Unit4, Unit1, Unit11;
{$R *.dfm}
procedure TForm9.N1Click(Sender: TObject);
var tmpRadio, MyI : integer;
begin
Form10.Caption := Сортировка;
ForSort := true;
ForFiltr := false;
Form10.RadioGroup2.Enabled := true;
Form10.Edit1.Enabled:=False;
Form10.Edit2.Enabled:=False;
Form10.Edit1.Clear;
Form10.Edit2.Clear;
Form10.Button3.Caption := Next;
Form10.RadioGroup1.ItemIndex := 0;
Form10.RadioGroup2.ItemIndex := 0;
ForOrder:=;
Form10.RadioGroup1.Items.Clear;
For MyI:=0 to Form9.DBGrid1.Columns.Count-1 do
begin
Form10.RadioGroup1.Items.Add(Form9.DBGrid1.Columns[MyI].Title.Caption);
end;
for tmpRadio:=0 to Form10.RadioGroup1.Items.Count-1 do
begin
TRadioButton(Form10.RadioGroup1.Controls[tmpRadio]).Enabled := true;
end;
Form10.RadioGroup1.ItemIndex := 0;
Form10.ShowModal;
end;
procedure TForm9.N3Click(Sender: TObject);
var tmpRadio, MyI : integer;
begin
Form10.Caption := Фильтрация;
Form10.RadioGroup2.ItemIndex := 0;
Form10.RadioGroup2.Enabled := false;
Diap := in;
ForSort := false;
ForFiltr := true;
Form10.Edit1.Enabled:=true;
Form10.Edit2.Enabled:=true;
Form10.Edit1.Clear;
Form10.Edit2.Clear;
Form10.Button3.Caption := Ok;
Form10.RadioGroup1.ItemIndex := 0;
Form10.RadioGroup1.Items.Clear;
For MyI:=0 to Form9.DBGrid1.Columns.Count-1 do
begin
Form10.RadioGroup1.Items.Add(Form9.DBGrid1.Columns[MyI].Title.Caption);
end;
for tmpRadio:=0 to Form10.RadioGroup1.Items.Count-1 do
begin
TRadioButton(Form10.RadioGroup1.Controls[tmpRadio]).Enabled := true;
end;
Form10.RadioGroup1.ItemIndex := 0;
Form10.ShowModal;
end;
procedure TForm9.N4Click(Sender: TObject);
var tmpRadio, MyI : integer;
begin
Form10.Caption := Фильтрация;
Form10.RadioGroup2.ItemIndex := 0;
Form10.RadioGroup2.Enabled := false;
Diap := out;
ForSort := false;
ForFiltr := true;
Form10.Edit1.Enabled:=true;
Form10.Edit2.Enabled:=true;
Form10.Edit1.Clear;
Form10.Edit2.Clear;
Form10.Button3.Caption := Ok;
Form10.RadioGroup1.ItemIndex := 0;
Form10.RadioGroup1.Items.Clear;
For MyI:=0 to Form9.DBGrid1.Columns.Count-1 do
begin
Form10.RadioGroup1.Items.Add(Form9.DBGrid1.Columns[MyI].Title.Caption);
end;
for tmpRadio:=0 to Form10.RadioGroup1.Items.Count-1 do
begin
TRadioButton(Form10.RadioGroup1.Controls[tmpRadio]).Enabled := true;
end;
Form10.RadioGroup1.ItemIndex := 0;
Form10.ShowModal;
end;
procedure TForm9.N5Click(Sender: TObject);
begin
ForReport();
end;
procedure TForm9.N6Click(Sender: TObject);
begin
Form11.QuickRep1.PreviewModal;
end;
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm10 = class(TForm)
RadioGroup2: TRadioGroup;
Edit2: TEdit;
Edit1: TEdit;
Button3: TButton;
Button2: TButton;
RadioGroup3: TRadioGroup;
RadioGroup1: TRadioGroup;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Sort();
procedure Filtr();
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
Uses Unit4;
{$R *.dfm}
procedure TForm10.Sort();
var tmpRadio, myNumb: integer;
QueryString: string;
tmp, Napr: String;
begin
if RadioGroup2.ItemIndex = 0 then
Napr :=
else
Napr := Desc ;
TRadioButton(RadioGroup1.Controls[RadioGroup1.ItemIndex]).Enabled := False;
if (ForOrder=) then
ForOrder := RadioGroup3.Items[RadioGroup1.ItemIndex] + Napr
else
ForOrder := ForOrder + ,+ RadioGroup3.Items[RadioGroup1.ItemIndex] + Napr;
for tmpRadio:=0 to RadioGroup1.Items.Count-1 do
begin
myNumb := -1;
if (TRadioButton(RadioGroup1.Controls[tmpRadio]).Enabled) then
begin
MyNumb := tmpRadio;
Break;
end;
end;
if (myNumb<>-1) then
RadioGroup1.ItemIndex := myNumb
else
Button3.Caption := Выполнить;
if (myNumb=-1) then
begin
ForReport();
Form10.Close;
ForSort := false;
end;
end;
procedure TForm10.Filtr();
begin
if Diap=in then
tmpFiltr := RadioGroup3.Items[RadioGroup1.ItemIndex] + BETWEEN :Par1 AND :Par2
else
tmpFiltr := RadioGroup3.Items[RadioGroup1.ItemIndex] + NOT BETWEEN :Par1 AND :Par2;
ForReport();
Edit1.Enabled:=False;
Edit2.Enabled:=False;
ForFiltr := False;
Form10.Close;
end;
procedure TForm10.Button3Click(Sender: TObject);
begin
if ForSort = true then Sort();
if ForFiltr = true then Filtr();
end;
procedure TForm1