Подсистема учета работы автотранспорта
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
енной информации средством Excel. Для просмотра информации необходимо нажать кнопку Excel на панели инструментов. После нажатия кнопку появится окно Сохранить как, а котором необходимо ввести имя файла и нажать кнопку Ок. После нажатия кнопку откроется сохраненный файл.
3.2 АС Учёт работы автотранспорта
Программный код
Код главной формы:
procedure TForm1.N10Click (Sender: TObject);. Show;;TForm1.N9Click (Sender: TObject);. Show;;TForm1. TrayIconClick (Sender: TObject);;TForm1.N8Click (Sender: TObject);. Show;;TForm1.N7Click (Sender: TObject);. Show;TForm1.N6Click (Sender: TObject);. Show;TForm1.N5Click (Sender: TObject);. Show;TForm1.N4Click (Sender: TObject);. Show;TForm1.N11Click (Sender: TObject);. Show;;TForm1.N16Click (Sender: TObject);. Show;;TForm1.N17Click (Sender: TObject);. Show;;TForm1.N18Click (Sender: TObject);. Show;;TForm1.N1Click (Sender: TObject);. Show;;TForm1.DBLookupComboBox11Click (Sender: TObject);KAT:string;((ADOTable2. Fields[7].AsBoolean=True) or (ADOTable2. Fields[8].AsBoolean=True)(ADOTable2. Fields[9].AsBoolean=True)) AND
(ADOTable2. Fields[23].AsString=2) then. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Fields[7].AsString:=11;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;;(ADOTable2. Fields[6].AsBoolean=True) then KAT:=A;(ADOTable2. Fields[7].AsBoolean=True) then KAT:=B;(ADOTable2. Fields[8].AsBoolean=True) then KAT:=C;(ADOTable2. Fields[9].AsBoolean=True) then KAT:=D;(ADOTable2. Fields[13].AsBoolean=True) then KAT:=PA;(ADOTable2. Fields[14].AsBoolean=True) then KAT:=PB;(ADOTable2. Fields[15].AsBoolean=True) then KAT:=PC;(ADOTable2. Fields[16].AsBoolean=True) then KAT:=PD;(ADOTable2. Fields[17].AsBoolean=True) then KAT:=PE;(ADOTable2. Fields[18].AsBoolean=True) then KAT:=TA;(ADOTable2. Fields[19].AsBoolean=True) then KAT:=TB;(ADOTable2. Fields[20].AsBoolean=True) then KAT:=TC;(ADOTable2. Fields[21].AsBoolean=True) then KAT:=TD;(ADOTable2. Fields[22].AsBoolean=True) then KAT:=TE;. Filtered:=False;. Active:=False;. Filter:=KAT + = True;. Filtered:=True;. Active:=True;;;TForm1.DBLookupComboBox2Click (Sender: TObject);KAT:string;((ADOTable2. Fields[7].AsBoolean=True) or (ADOTable2. Fields[8].AsBoolean=True)(ADOTable2. Fields[9].AsBoolean=True)) AND
(ADOTable2. Fields[23].AsString=2) then. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Enabled:=True;. Fields[7].AsString:=11;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;. Enabled:=False;;(ADOTable2. Fields[6].AsBoolean=True) then KAT:=A;(ADOTable2. Fields[7].AsBoolean=True) then KAT:=B;(ADOTable2. Fields[8].AsBoolean=True) then KAT:=C;(ADOTable2. Fields[9].AsBoolean=True) then KAT:=D;(ADOTable2. Fields[13].AsBoolean=True) then KAT:=PA;(ADOTable2. Fields[14].AsBoolean=True) then KAT:=PB;(ADOTable2. Fields[15].AsBoolean=True) then KAT:=PC;(ADOTable2. Fields[16].AsBoolean=True) then KAT:=PD;(ADOTable2. Fields[17].AsBoolean=True) then KAT:=PE;(ADOTable2. Fields[18].AsBoolean=True) then KAT:=TA;(ADOTable2. Fields[19].AsBoolean=True) then KAT:=TB;(ADOTable2. Fields[20].AsBoolean=True) then KAT:=TC;(ADOTable2. Fields[21].AsBoolean=True) then KAT:=TD;(ADOTable2. Fields[22].AsBoolean=True) then KAT:=TE;. Filtered:=False;. Active:=False;. Filter:=KAT + = True;. Filtered:=True;. Active:=True;;;TForm1.DBLookupComboBox3Click (Sender: TObject);(ADOTable3. Fields[3].AsBoolean=False) then. Filtered:=False;. Active:=False;. Filter:=EC = True;. Filtered:=True;. Active:=True;;;TForm1. FormCloseQuery (Sender: TObject; var CanClose: Boolean);. Close;;TForm1. FormCreate (Sender: TObject);. Last;;;TForm1. Image1Click (Sender: TObject);. Show;TForm1. JvXPButton10Click (Sender: TObject);. Cancel;;TForm1. JvXPButton11Click (Sender: TObject);. Refresh;;TForm1. JvXPButton120Click (Sender: TObject);. Show;;TForm1. JvXPButton1Click (Sender: TObject);ADOTable1. Modified then. Post;;TForm1. JvXPButton2Click (Sender: TObject);. Show;;TForm1. JvXPButton3Click (Sender: TObject);. Next;;TForm1. JvXPButton4Click (Sender: TObject);. First;;TForm1. JvXPButton5Click (Sender: TObject);. Prior;;TForm1. JvXPButton6Click (Sender: TObject);. Last;;TForm1. JvXPButton7Click (Sender: TObject);. Insert;;TForm1. JvXPButton8Click (Sender: TObject);. Delete;;TForm1. JvXPButton9Click (Sender: TObject);. Edit;
end;
end.
Код формы печати путевых листов:
+(StrToInt(Edit1.Text)-1)+and +(DateTimePicker2. Date-1)+ and Д_заезда < +(DateTimePicker3. Date+1);.ADOTable10. Filtered:=True;.ADOTable10. Active:=True;not Form1.ADOTable10. Eof do. Active:=False;. Filtered:=False;. Filter:=код = +.ADOTable10. Fields[34].AsString;. Filtered:=True;. Active:=True;:=ADOTable1. Fields[23].AsString;F=2 then // лицевая гр.:=Form1.ADOTable10. Fields[0].AsString;:=Form1.ADOTable10. Fields[1].AsDateTime;:=Form1.ADOTable10. Fields[2].AsDateTime;:=Form1.ADOTable10. Fields[3].AsDateTime;:=Form1.ADOTable10. Fields[4].AsDateTime;:=Form1.ADOTable10. Fields[5].AsString;:=Form1.ADOTable10. Fields[6].AsString;:=Form1.ADOTable10. Fields[7].AsString;PM=- then PM:=;:=Form1.ADOTable10. Fields[8].AsString;PN=- then PN:=;:=Form1.ADOTable10. Fields[9].AsString;:=Form1.ADOTable10. Fields[10].AsString;:=Form1.ADOTable10. Fields[11].AsString;:=Form1.ADOTable10. Fields[11].AsString;:=Form1.ADOTable10. Fields[12].AsString;Z=- then Z:=; Z=перевозка грузов then Z:=;
O:=Form1.ADOTable10. F