Реферат Розробка автоматизованої системи контролю та управління автопарком таксі

РД 50-34.698-90 -М. Державний комітет з стандартам, 1981

Методичні вказівки з написання дипломних робіт за спеціальністю 5В070400- «Обчислювальна техніка та програмне забезпечення», КВУ, 2013.oraclub.trecom.tomsk.su/articles/mir-ora/program/23.htm

Додаток А

Лістинг програми

unit AddRegionForm1;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TLabel ;: TEdit ;: TLabel ;: TEdit ;: TButton ;: TButton; FormKeyPress (Sender: TObject; var Key: Char); Button2Click (Sender: TObject); Button1Click (Sender: TObject); FormShow (Sender: TObject);

{Private declarations}

{Public declarations} ;: TAddRegionForm; RegionsForm1;

{$ R * .dfm} TAddRegionForm.Button1Click (Sender: TObject); Edit1.Text= then

begin ( Введіть назву району );

Edit1.SetFocus ;;; Edit2.Text= then

begin ( Введіть телефонний код );

Edit2.SetFocus ;;;. RegListBox.Items.Add (Edit1.Text + # 9 + Edit2.Text) ;. RegListBox.ItemIndex:=RegionsForm.RegListBox.Count - 1; .SQL. Clear; .SQL.Add ( INSERT INTO regions (region_name, tel_code) VALUES ( + (Edit1.Text) + , + Edit2.Text + ) ) ;. ExecSQL; .RegListBox.OnClick (Sender) ;. Close ;; TAddRegionForm.Button2Click (Sender: TObject) ;. Close ;; TAddRegionForm.FormKeyPress (Sender: TObject; var Key: Char); Key=# 27 then AddRegionForm.Close ;; TAddRegionForm.FormShow (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. SetFocus ;;. MainForm ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, Menus , ADODB, Grids, StdCtrls, ExtCtrls, ColorGrd, Buttons;=class (TForm): TPopupMenu ;: TMainMenu ;: TADOQuery ;: TStringGrid ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TBitBtn ;: TComboBox ;: TComboBox ;: TLabel ;: TListBox ;: TComboBox ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TButton ;: TButton ;: TLabel ;: TButton ;: TStringGrid ;: TTimer ;: TADOQuery; _tmp: TADOQuery;:TADOQuery ;: TMenuItem ;: TMenuItem ;: TBitBtn; FormShow (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); LocationGridDrawCell (Sender: TObject; ACol, ARow: Integer ;: TRect; State: TGridDrawState); FormCreate (Sender: TObject); BitBtn1Click (Sender: TObject); TelEditExit (Sender: TObject); SrcStreetComboBoxKeyPress (Sender:TObject; var Key: Char); SrcStreetComboBoxEnter (Sender: TObject); DestStreetComboBoxEnter (Sender: TObject); DestStreetComboBoxKeyPress (Sender: TObject; var Key: Char); DriverListBoxEnter (Sender: TObject); DriverListBoxClick (Sender: TObject); DriverListBoxDrawItem (Control: TWinControl; Index: Integer ;: TRect; State: TOwnerDrawState); DriverListBoxDblClick (Sender: TObject); SrcHouseEditEnter (Sender: TObject); DestHouseEditEnter (Sender: TObject); DestRegComboBoxEnter (Sender: TObject); DestStreetComboBoxChange (Sender: TObject ); N3Click (Sender: TObject); Button1Click (Sender: TObject); FormKeyPress (Sender: TObject; var Key: Char); SrcStreetComboBoxChange (Sender: TObject); Button2Click (Sender: TObject); LocationGridDblClick (Sender: TObject); DrStateButtonClick (Sender: TObject); TitleGridDrawCell (Sender: TObject; ACol, ARow: Integer ;: TRect; State: TGridDrawState); Timer1Timer (Sender: TObject); D1Click (Sender: TObject); BitBtn2Click (Sender: TObject); qRecordsetChangeComplete (DataSet: TCustomADODataSet; Reason: TEventReason; const Error: Error; EventStatus: TEventStatus);

{Private declarations}, RowIndex: Integer ;: Boolean ;: TComboBox; AnyComboBoxKeyPress (var Key: Char); UpdateGrids;

{Public declarations}; Fields: Array [0..8] of String=

(laquo;stateraquo;,laquo;voditel_idraquo;,laquo;voditelraquo;,laquo;state_nameraquo;,laquo;from_regionraquo;,laquo;to_regionraquo;,

time_send , place , time_out ) ;: TMainForm1 ;: Integer; WelcomeF1, SendDriver, RegionsForm1, EditDriver, ChangeStateForm1, ReportsForm1;

{$ R * .dfm} TMainForm1.UpdateGrids ;; TMainForm1.BitBtn1Click (Sender: TObject); i: byte; .Text:= raquo ;;. Text:= Будинок ; .Text:= Будинок raquo ;;:=SrcStreetComboBox; i:=0 to 1 do.Text:= Вулиця raquo ;;. Items.Clear; .Font.Color:=clGray;:=DestStreetComboBox ;;. Text := Район raquo ;;. Font.Color:=clGray; .Font.Color:=clGray; .Font.Color:=clGray; .OnExit (Sender) ;. SetFocus ;; TMainForm1.BitBtn2Click (Sender: TObject);.ShowModal ;; TMainForm1.Button1Click (Sender: TObject) ;. ShowModal ;; TMainForm1.Button2Click (Sender: TObject) ;. ShowModal ;; TMainForm1.D1Click (Sender: TObject) ;. ShowModal ;; TMainForm1.DestHouseEditEnter (Sender: TObject ) ;. Text:= raquo ;;. Font.Color:=clBlack ;; TMainForm1.DestRegComboBoxEnter (Sender...