【文章內(nèi)容簡介】 Label13: TLabel。 Label14: TLabel。 train_no: TComboBox。 zhanm: TComboBox。 reach_time: TDBEdit。 amount: TDBEdit。 price: TDBEdit。 emit_time: TDBEdit。 r_leixing: TComboBox。 r_riqi: TComboBox。 buy: TButton。 ToolBar3: TToolBar。 GroupBox2: TGroupBox。 tui: TDBGrid。 DataSource2: TDataSource。 ActionList1: TActionList。 DataSetDelete1: TDataSetDelete。 Button4: TButton。 Button5: TButton。 tuipiao: TPanel。 Label15: TLabel。 Label16: TLabel。 Label18: TLabel。 Label19: TLabel。 Label20: TLabel。 Label21: TLabel。 Label17: TLabel。 Label22: TLabel。 Edit3: TEdit。 Edit4: TEdit。 ComboBox3: TComboBox。 ComboBox4: TComboBox。 Edit6: TEdit。 Edit5: TEdit。 Button6: TButton。 Button7: TButton。 Edit7: TEdit。 ADOQuery2: TADOQuery。 Action1: TAction。 DataSetPrior1: TDataSetPrior。 DataSetNext1: TDataSetNext。 DataSetDelete2: TDataSetDelete。 DataSetEdit1: TDataSetEdit。 DataSetPost1: TDataSetPost。 DataSetCancel1: TDataSetCancel。 DataSetInsert1: TDataSetInsert。 DataSource3: TDataSource。 man: TPanel。 Label23: TLabel。 Panel3: TPanel。 Label24: TLabel。 Label25: TLabel。 Label26: TLabel。 Label27: TLabel。 Label28: TLabel。 Label29: TLabel。 Label30: TLabel。 DBEdit1: TDBEdit。 DBEdit2: TDBEdit。 DBEdit4: TDBEdit。 DBMemo1: TDBMemo。 Button8: TButton。 Button9: TButton。 Button10: TButton。 Button11: TButton。 Button12: TButton。 Button13: TButton。 Panel4: TPanel。 DBGrid2: TDBGrid。 sex: TDBComboBox。 DBComboBox1: TDBComboBox。 N13: TMenuItem。 procedure Button2Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure BitBtn2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure train_noChange(Sender: TObject)。 procedure zhanmChange(Sender: TObject)。 procedure r_riqiChange(Sender: TObject)。 procedure r_leixingChange(Sender: TObject)。 procedure buyClick(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 procedure N6Click(Sender: TObject)。 procedure BitBtn4Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure Button7Click(Sender: TObject)。 procedure N9Click(Sender: TObject)。 procedure BitBtn9Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure BitBtn7Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var main: Tmain。implementation uses piao_pas。 var log:boolean=false。 leixing,riqi:string。 Distance:integer。{$R *.dfm}procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。var userid,userpwd:string。 Adoquery2:TADOQuery。begin userid:=。 userpwd:=。 if (userid39。39。)and(userpwd39。39。)then begin Adoquery2:=(nil)。 :=ADOConnection1。 。 (39。select id,pwd,name,deng from user0 where id=39。+userid+39。39。)。 。 if (userid=(39。id39。).AsString)and(userpwd=Adoq(39。pwd39。).AsString) then begin :=true。 。 log:=true。 :=39。注銷39。 if [39。deng39。]=39。管理員39。 then begin :=true。 :=true。 end。 :=39?；疖囀燮毕到y(tǒng) 歡迎你 : 39。+(39。name39。).AsString。 end else showmessage(39。你的輸入不正確！請確認以后再輸入39