Разработка информационно-справочной системы по учету вагонов на подъездном пути предприятия
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
s Unit2, Unit4, Unit3, Unit7, DateUtils;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
var qtmp: string;
begin
ToIns := ComboBox1.Items[ComboBox1.ItemIndex];
ToIns2 := IntToStr(YearOf(DateTimePicker1.Date));
ToIns3 := Edit2.Text;
ToIns4 := Edit3.Text;
ToIns5 := IntToStr(YearOf(DateTimePicker2.Date));
ToIns6 := Edit5.Text;
ToIns7 := IntToStr(Edit9.Tag);
ToIns8 := Edit8.Text;
ToIns9 := IntToStr(Edit10.Tag);
)and(Edit2.Text)
)and(Edit8.Text)) then
begin
if EditMode then
begin
ForEdit := DataModule2.QShow[V.id];
InsEdit3 := true;
InsertZapros();
ShowZapros();
end
else
begin
EditIns := true;
InsertZapros();
QueryString:=SELECT top 1 id from + TBL+ order by id desc;
with DataModule2.Qtmp do
begin
Close;
SQL.Clear;
SQL.Add(QueryString);
Open;
end;
qtmp := DataModule2.Qtmp[id];
Form6.Close;
ShowZapros();
DataModule2.QShow.Locate(v.id,qtmp,[]);
ForEdit := -1;
end;
Form6.Close;
end
else
ShowMessage(Все поля обязательны к заполнению!);
end;
procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if EditMode then
begin
EditMode:=false;
end;
end;
procedure TForm6.FormShow(Sender: TObject);
var i, k: integer;
begin
EditIns := False;
if EditMode then
begin
DBGrid1.Visible := true;
DateTimePicker1.Date := StrToDate(01.01.+ DataModule2.QShow[myyear]);
Edit2.Text := DataModule2.QShow[nomer_vagona];
Edit3.Text := DataModule2.QShow[invent_nomer];
DateTimePicker2.Date := StrToDate(01.01.+ DataModule2.QShow[year_izgot]);
Edit5.Text := DataModule2.QShow[gruzopodemnost];
Edit8.Text := DataModule2.QShow[iznos];
Edit9.Text := DataModule2.QShow[rod_vagona];
Edit9.Tag := DataModule2.QShow[rv.id];
Edit10.Text := DataModule2.QShow[raion_dvizh];
Edit10.Tag := DataModule2.QShow[rd.id];
For i:=0 to ComboBox1.Items.Count do
begin
ComboBox1.ItemIndex := i;
if ComboBox1.Items[ComboBox1.ItemIndex] = DataModule2.QShow[mymonth] then
k := ComboBox1.ItemIndex;
end;
ComboBox1.ItemIndex := k;
Tbl:=Operations_s_vagonom;
ShowZapros();
end
else
begin
DateTimePicker1.Date := Date;
DateTimePicker2.Date := StrToDate(01.01.1950);
Edit2.Text := ;
Edit3.Text := ;
Edit5.Text := ;
Edit8.Text := ;
Edit9.Text := ;
Edit9.Tag := 0;
Edit10.Text := ;
Edit10.Tag := 0;
DBGrid1.Visible := false;
end;
TBL:=Vagon;
end;
procedure TForm6.Edit9Enter(Sender: TObject);
begin
Form3.Caption := Род вагона;
Form3.Label1.Caption:= Form3.Caption;
Tbl := Rod_vagona;
pole1 := id;
pole2 := Rod_vagona;
pole3 := ;
pole4 := ;
pole5 := ;
pole6 := ;
pole7 := ;
pole8 := ;
pole9 := ;
pole10 := ;
pole11 := ;
pole12 := ;
pole13 := ;
ShowZapros;
Form3.ShowModal;
Tbl := Vagon;
Edit10.SetFocus;
end;
procedure TForm6.Edit10Enter(Sender: TObject);
begin
Form3.Caption := Район движения;
Form3.Label1.Caption:= Form3.Caption;
Tbl := Raion_dvizheniya;
pole1 := id;
pole2 := Raion_dvizh;
pole3 := ;
pole4 := ;
pole5 := ;
pole6 := ;
pole7 := ;
pole8 := ;
pole9 := ;
pole10 := ;
pole11 := ;
pole12 := ;
pole13 := ;
ShowZapros;
Form3.ShowModal;
Tbl := Vagon;
Button1.SetFocus;
end;
procedure TForm6.addExecute(Sender: TObject);
begin
Form7.Caption := Информация по вагону;
Tbl := Operations_s_vagonom;
pole1 := id;
pole2 := key_station_otpr;
pole3 := key_front_otpr;
pole4 := key_sttion_naznach;
pole5 := key_front_naznach;
pole6 := date;
pole7 := time;
pole8 := key_operation;
pole9 := key_gruz;
pole10 := weight;
pole11 := n_dor_ved;
pole12 := n_ved;
pole13 := key_vagon;
Form7.ShowModal;
if ((EditMode2=false)and(EditIns2)) then
begin
EditMode2:=true;
Form7.ShowModal;
end;
end;
procedure TForm6.editExecute(Sender: TObject);
begin
if (DataModule2.QOSV[OSV.id]=Null) then
begin
ShowMessage(Нечего редактировать);
EditMode2 := false;
end
else
begin
EditMode2 := True;
Form7.ShowModal;
end;
end;
procedure TForm6.delExecute(Sender: TObject);
begin
if (DataModule2.QOSV[OSV.id]=Null) then
begin
ShowMessage(Нечего удалять);
EditMode2 := false;
end
else
begin
Tbl := Operations_s_vagonom;
pole1 := id;
pole2 := key_station_otpr;
pole3 := key_front_otpr;
pole4 := key_station_naznach;
pole5 := key_front_naznach;
pole6 := mydate;
pole7 := mytime;
pole8 := key_operation;
pole9 := key_gruz;
pole10 := weight;
pole11 := n_dor_ved;
pole12 := n_ved;
pole13 := key_vagon;
ForDel := DataModule2.QOSV[OSV.id];
DelZapros;
ShowZapros();
TBL:=Vagon;
end;
end;
procedure TForm6.Edit2Exit(Sender: TObject);
begin
try
strtoint(Edit2.Text);
except
ShowMessage(Здесь должно быть число!!);
Edit2.SetFocus;
end;
end;
procedure TForm6.Edit3Exit(Sender: TObject);
begin
try
strtoint(Edit3.Text);
except
ShowMessage(Здесь должно быть число!!);
Edit3.SetFocus;
end;
end;
procedure TForm6.Edit5Exit(Sender: TObject);
begin
try
strtoint(Edit5.Text);
except
ShowMessage(Здесь должно быть число!!);
Edit5.SetFocus;
end;
end;
procedure TForm6.Edit8Exit(Sender: TObject);
begin
try
strtoint(Edit8.Text);
//----далее команды если введённая вещь - число
except
ShowMessage(Здесь должно быть число!!);
Edit8.SetFocus;
end;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, TabNotBk, Grids, DBGrids, Menus, ActnList;
type
TForm7 = class(TForm)
GroupBox1: TGro