Разработка информационно-справочной системы по учету вагонов на подъездном пути предприятия
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Edit2: TEdit;
Label2: TLabel;
ActionList1: TActionList;
PopupMenu1: TPopupMenu;
del: TAction;
N1: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure delExecute(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
Uses Unit2, Unit4;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
If (tbl=Ceha) then
begin
ToIns2 := Edit2.Text;
end;
ToIns := Edit1.Text;
InsertZapros();
ShowZapros();
Edit1.Clear;
Edit2.Clear;
end;
procedure TForm3.DBGrid1DblClick(Sender: TObject);
begin
SelTab();
Form3.Close;
end;
procedure TForm3.FormShow(Sender: TObject);
begin
Edit1.SetFocus;
Edit1.Clear;
Edit2.Clear;
If (tbl=Ceha) then
begin
Edit2.Visible := True;
Edit1.Width := 161;
Label2.Visible := True;
end
else
begin
Edit1.Width := 225;
Edit2.Visible := False;
Label2.Visible := False;
end;
end;
procedure TForm3.delExecute(Sender: TObject);
begin
ForDel := DataModule2.Query1[id];
DelZapros;
ShowZapros();
Edit1.Clear;
Edit2.Clear;
end;
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
InsEdit:=false;
ForEdit:=-1;
end;
procedure TForm3.DBGrid1CellClick(Column: TColumn);
begin
If (Tbl=Ceha) then
begin
Edit2.Text := SelectQ[pole3];
end;
Edit1.Text := SelectQ[pole2];
ForEdit:= SelectQ[pole1];
InsEdit := True;
end;
end.
unit Unit4;
interface
Uses ADODB;
var QueryString, TBL, pole1, pole2, Pole3, pole4, Pole5, pole6 : string;
pole7, pole8, pole9, pole10, pole11, pole12, pole13 : string;
ToIns, ToIns2, ToIns3, ToIns4, ToIns5, ToIns6, ToIns7, ToIns8 : string;
ToIns9, ToIns10, ToIns11, ToIns12, ToIns13, ForDel, ForEdit, ForOrder, Diap, TmpFiltr : string;
InsEdit,InsEdit2,InsEdit3,InsEdit4,InsEdit5 : boolean;
SelectQ : TADOQuery;
EditMode, ForSort, ForFiltr, EditMode2, EditMode3, EditMode4, EditIns, EditIns2 : boolean;
Procedure ShowZapros();
Procedure InsertZapros();
Procedure DelZapros();
Procedure SelTab();
Procedure ForReport();
implementation
Uses Dialogs, Unit2, Unit5, Unit6, Unit3, Unit7, Unit8, Unit1, Unit9, Unit10, DB;
Procedure ShowZapros();
var Polya, Tabli, Svyaz, MyKey : String;
begin
if ((Tbl=Operation)or(Tbl=Station)or(Tbl=Ceha)or
(Tbl=Front)or(Tbl=Gruz)or(Tbl=Rod_vagona)or
(Tbl=Raion_dvizheniya)or(Tbl=Ves)or(Tbl=Vid_uslug)) then
begin
QueryString := select * from + TBL + order by + pole2;
SelectQ := DataModule2.Query1;
end;
if (Tbl=Vagon) then
begin
QueryString := select * from Vagon V, Rod_vagona RV, Raion_dvizheniya RD where V.key_rod_vagona=RV.id and V.key_raion_dvizh=RD.id order by invent_nomer desc;
SelectQ := DataModule2.QShow;
end;
if (Tbl=Operations_s_vagonom) then
begin
MyKey := DataModule2.Qshow[v.id];
SelectQ := DataModule2.QOSV;
Polya := OSV.*, SNACH.*, SKON.*, FNACH.*, FKON.*, O.*, G.*;
Tabli := vagon V, station SNACH, station SKON, front FNACH, front FKON, operation O, gruz G, Operations_s_vagonom OSV;
Svyaz:= OSV.key_station_otpr=SNACH.id and OSV.key_front_otpr=FNACH.id and OSV.key_station_naznach=SKON.id and OSV.key_front_naznach=FKON.id and OSV.key_operation=O.id and OSV.key_gruz=G.id and OSV.key_vagon=V.id and OSV.key_vagon= + MyKey;
QueryString := select +Polya+ from +Tabli+ where +Svyaz;
end;
if (Tbl=Uslugi_sv) then
begin
MyKey := DataModule2.QOSV[OSV.id];
SelectQ := DataModule2.Quslugi;
Polya := USV.*, CNA.*, CS.*, ST.*, VU.*, V.*;
Tabli := Ceha CNA, Ceha CS, Uslugi_sv USV, Operations_s_vagonom OSV, Stoimost ST, Vid_uslug VU, Ves V;
Svyaz:= USV.key_uslugi=ST.id and USV.key_na=CNA.id and USV.key_s=CS.id and USV.key_vagon=OSV.id and ST.key_vid_uslug=VU.id and ST.key_ves=V.id and USV.key_vagon= + MyKey;
QueryString := select +Polya+ from +Tabli+ where +Svyaz;
end;
if (Tbl=Stoimost) then
begin
SelectQ := DataModule2.QSelUs;
Polya := VU.*, V.*, ST.*;
Tabli := Vid_uslug VU, Ves V, Stoimost ST;
Svyaz:= ST.key_vid_uslug=VU.id and ST.key_ves=V.id;
QueryString := select +Polya+ from +Tabli+ where +Svyaz;
end;
with SelectQ do
begin
Close;
SQL.Clear;
SQL.Add(QueryString);
Open;
end;
if (Tbl=Vagon) then
begin
SelectQ.Fields[0].Visible := false;
SelectQ.Fields[7].Visible := false;
SelectQ.Fields[9].Visible := false;
SelectQ.Fields[10].Visible := false;
SelectQ.Fields[12].Visible := false;
Form1.DBGrid1.Columns[0].Title.Caption :=Месяц;
Form1.DBGrid1.Columns[1].Title.Caption :=Год;
Form1.DBGrid1.Columns[2].Title.Caption :=№ вагона;
Form1.DBGrid1.Columns[3].Title.Caption :=Инв. №;
Form1.DBGrid1.Columns[4].Title.Caption :=Изгот.;
Form1.DBGrid1.Columns[5].Title.Caption :=Грузопод. т.;
Form1.DBGrid1.Columns[6].Title.Caption :=Износ %;
Form1.DBGrid1.Columns[7].Title.Caption :=Род вагона;
Form1.DBGrid1.Columns[8].Title.Caption :=Район движения;
end;
if (Tbl=Operations_s_vagonom) then
begin
SelectQ.Fields[0].Visible := false;
SelectQ.Fields[1].Visible := false;
SelectQ.Fields[2].Visible := false;
SelectQ.Fields[3].Visible := false;
SelectQ.Fields[4].Visible := false;
SelectQ.Fields[7].Visible := false;
SelectQ.Fields[8].Visible := false;
SelectQ.Fields[12].Visible := false;
SelectQ.Fields[13].Visible := false;
SelectQ.Fields[15].Visible := false;
SelectQ.Fields[17].Visible := false;
SelectQ.Fields[19].Visible := false;
SelectQ.Fields[21].Visible := false;
SelectQ.Fields[23].Visible := false;
Form6.DBGrid1.Columns[0].Title.Caption :=Дата;
Form6.DBGrid1.Columns[1].Title.Caption :=Время;
Form6.DBGrid1.Columns[2].Title.Caption :=Вес;
Form6.DBGrid1.Columns[3].Title.Caption :=№ дор. вед.;
Form6.DBGrid1.Columns[4].Title.Caption :=№ вед.;
Form6.DBGrid1.Columns[5].Title.Caption :=Станция отпр.;
Form6.DBGrid1.Columns[6].Title.Caption :=Станция пол.;
Form6.DBGrid1.Columns[7].Title.Caption :=Фронт отпр.;
Form6.DBGrid1.Columns[8].Title.Caption :=Фронт пол.;
Form6.DBGrid1.Columns[9].Title.Caption :=Операция;
Form6.DBGrid1.Columns[10].Title.Caption :=Груз;
end;
if (Tbl=Uslugi_sv) then
begin
SelectQ.Fields[0].Visible := false;
SelectQ.Fields[2].Visible := false;
SelectQ.Fields[3].Visible := false;
SelectQ.Fields[4].Visible := false;
SelectQ.Fields[5].Visible := false;
SelectQ.Fields[7].Visible := false;
SelectQ.Fields[10].Visible := false;
SelectQ.Fields[13].Vis