汽車租賃公司業(yè)務管理系統(tǒng)程序代碼-無憂無慮畢設網(wǎng)

無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設網(wǎng) ()-大學生畢業(yè)設計站 ,免費畢業(yè)設計論文 ,無憂無慮畢設網(wǎng) 大學生畢業(yè)設計 ,出售各類畢業(yè)設計源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費視頻教程 ,我們將竭誠為您服務！ 附錄 : 程序代碼 開場 FLASH 代碼 unit flash1； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, jpeg； type Tflash = class(TForm) Image1: TImage； Timer1: TTimer； procedure Timer1Timer(Sender: TObject)； procedure Image1Click(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； private Private declarations public Public declarations end； var flash: Tflash； itime : integer； implementation $R *.dfm procedure Tflash.Timer1Timer(Sender: TObject)； begin inc(itime)； /計算時間， 5 秒后自動關(guān)閉 if itime=5 then begin timer1.Enabled := false； flash.Visible := false； close； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： end； end； procedure Tflash.Image1Click(Sender: TObject)； begin close； /點擊界面 ,flash 關(guān)閉 end； procedure Tflash.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； end. 登陸界面 代碼： unit main2； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls； type Tlogin = class(TForm) Edit1: TEdit； Label1: TLabel； Edit2: TEdit； Label2: TLabel； Button1: TButton； Button2: TButton； ADOQuery1: TADOQuery； procedure Button2Click(Sender: TObject)； procedure Button1Click(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； private Private declarations public Public declarations end； var 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： login: Tlogin； implementation uses teac_info4,cla_info6,pro_info5, huiyuan8； $R *.dfm procedure Tlogin.Button1Click(Sender: TObject)； begin if (edit1.Text) and (edit2.Text) then/登 錄身份與密碼不為空則查詢 begin with login.ADOQuery1 do begin close； sql.Clear； sql.Add(select * from denglu where 登錄身份 =+edit1.text+ and 登錄密碼=+edit2.text+)； open； if eof then /查詢不到滿足條件的記錄 showmessage(登錄身份或密碼錯誤 ) else begin ModalResult := mrOK； /查詢到了就返回 mrok if (login.ADOQuery1.FieldByName(級別 ).AsString=管理員 )then begin teac_info.GroupBox3.Visible:=true； teac_info.GroupBox4.Visible:=true； teac_info.GroupBox5.Visible:=true； pro_info.GroupBox3.Visible:=true； pro_info.GroupBox4.Visible:=true； pro_info.GroupBox5.Visible:=true； end else begin teac_info.GroupBox3.Visible:=false； teac_info.GroupBox4.Visible:=false； teac_info.GroupBox5.Visible:=false； pro_info.GroupBox3.Visible:=false； pro_info.GroupBox4.Visible:=false； pro_info.GroupBox5.Visible:=false； cla_info.GroupBox3.Visible:=false； cla_info.GroupBox4.Visible:=false； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： cla_info.GroupBox5.Visible:=false； huiyuan.GroupBox3.Visible:=false； huiyuan.GroupBox4.Visible:=false； huiyuan.GroupBox5.Visible:=false； end； end； end； end else showmessage(登錄身份和密碼不能為空 ) end； procedure Tlogin.Button2Click(Sender: TObject)； begin Application.Terminate； end； procedure Tlogin.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； end. 主界面代碼 unit main3； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls； type Tmain = class(TForm) MainMenu1: TMainMenu； N1: TMenuItem； N2: TMenuItem； N3: TMenuItem； N4: TMenuItem； N5: TMenuItem； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： N6: TMenuItem； N8: TMenuItem； N9: TMenuItem； Image1: TImage； N7: TMenuItem； N10: TMenuItem； N11: TMenuItem； N12: TMenuItem； N13: TMenuItem； N14: TMenuItem； procedure N2Click(Sender: TObject)； procedure N3Click(Sender: TObject)； procedure N4Click(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure N6Click(Sender: TObject)； procedure N14Click(Sender: TObject)； procedure N7Click(Sender: TObject)； procedure N9Click(Sender: TObject)； procedure N11Click(Sender: TObject)； procedure N12Click(Sender: TObject)； private Private declarations public Public declarations end； var main: Tmain； implementation uses teac_info4,pro_info5,cla_info6, chi_chan7,huiyuan8,kehu9,zulin10,guihuan11； $R *.dfm procedure Tmain.N2Click(Sender: TObject)； begin /teac_info:=Tteac_info.Create(self)； /創(chuàng)建類型信息窗口 teac_info.Show； end； procedure Tmain.N3Click(Sender: TObject)； begin /pro_info := Tpro_info.Create(self)； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： pro_info.Show； end； procedure Tmain.N4Click(Sender: TObject)； begin /cla_info := Tcla_info.Create(self)； cla_info.Show； end； procedure Tmain.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； procedure Tmain.N6Click(Sender: TObject)； begin cip_chan := Tcip_chan.Create(self)； cip_chan.Show； end； procedure Tmain.N14Click(Sender: TObject)； begin Application.Terminate； end； procedure Tmain.N7Click(Sender: TObject)； begin /huiyuan := Thuiyuan.Create(self)； huiyuan.Show； end； procedure Tmain.N9Click(Sender: TObject)； begin kehu := Tkehu.Create(self)； kehu.Show； end； procedure Tmain.N11Click(Sender: TObject)； begin zulin := Tzulin.Create(self)； zulin.Show； end； procedure Tmain.N12Click(Sender: TObject)； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： begin guihuan := Tguihuan.Create(self)； guihuan.Show； end； end. 密碼修改代碼 unit chi_chan7； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls； type Tcip_chan = class(TForm) Button1: TButton； Button2: TButton； Edit1: TEdit； Label1: TLabel； Label2: TLabel； Edit2: TEdit； Label3: TLabel； Edit3: TEdit； Label4: TLabel； Edit4: TEdit； ADOQuery1: TADOQuery； procedure Button1Click(Sender: TObject)； procedure Button2Click(Sender: TObject)； private Private declarations public Public declarations end； var cip_chan: Tcip_chan； implementation uses main2； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： $R *.dfm procedure Tcip_chan.Button1Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(select * from denglu where 登錄身份 =+edit1.Text+ and 登錄密碼=+edit2.text+) ； ADOQuery1.open； if(ADOQuery1.RecordCount0)then begin if(edit3.text) and (edit4.text) and (edit3.text=edit4.text)then begin adoquery1.Edit； adoquery1.FieldByName(登錄密 碼 ).AsString:=edit3.text； adoquery1.Post； showmessage(密碼修改成功 !)； Application.Terminate； /login := Tlogin.Create(self)； /login.Show； end else showmessage(新密碼不能為空切兩次要輸入相同 !)； end else showmessage(密碼錯誤 !)； end； procedure Tcip_chan.Button2Click(Sender: TObject)； begin close； end； end. 類型信息查詢界面代碼 unit teac_info4； interface uses 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Buttons； type Tteac_info = class(TForm) DataSource1: TDataSource； DBGrid1: TDBGrid； ADOQuery1: TADOQuery； Button1: TButton； GroupBox1: TGroupBox； Edit1: TEdit； Button2: TButton； GroupBox2: TGroupBox； Edit2: TEdit； Button3: TButton； GroupBox3: TGroupBox； Button4: TButton； Button5: TButton； GroupBox4: TGroupBox； Button6: TButton； GroupBox5: TGroupBox； Button8: TButton； Button9: TButton； ADOQuery1DSDesigner: TStringField； ADOQuery1DSDesigner2: TStringField； ADOQuery1DSDesigner3: TStringField； SpeedButton1: TSpeedButton； procedure Button2Click(Sender: TObject)； procedure Button3Click(Sender: TObject)； procedure Button4Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure Button6Click(Sender: TObject)； procedure Button9Click(Sender: TObject)； procedure Button8Click(Sender: TObject)； procedure FormCreate(Sender: TObject)； procedure Button1Click(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure SpeedButton1Click(Sender: TObject)； private Private declarations public Public declarations end； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： var teac_info: Tteac_info； implementation uses main2； $R *.dfm procedure Tteac_info.Button2Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from leixing where 汽車編號 =+edit1.text+)； adoquery1.Open； end； procedure Tteac_info.Button3Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from leixing where 汽車品牌 =+edit2.text+)； adoquery1.Open； end； procedure Tteac_info.Button4Click(Sender: TObject)； begin adoquery1.Append； end； procedure Tteac_info.Button5Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Tteac_info.Button6Click(Sender: TObject)； begin adoquery1.Delete； showmessage(修改成功 )； end； procedure Tteac_info.Button9Click(Sender: TObject)； begin 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： adoquery1.Post； showmessage(修改成功 )； end； procedure Tteac_info.Button8Click(Sender: TObject)； begin adoquery1.Edit； end； procedure Tteac_info.FormCreate(Sender: TObject)； begin adoquery1.Open； end； procedure Tteac_info.Button1Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from leixing )； adoquery1.Open； end； procedure Tteac_info.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； procedure Tteac_info.SpeedButton1Click(Sender: TObject)； begin teac_info.Hide； end； end. 保險公司信息模塊代碼 unit pro_info5； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons； type Tpro_info = class(TForm) DataSource1: TDataSource； DBGrid1: TDBGrid； ADOQuery1: TADOQuery； GroupBox1: TGroupBox； GroupBox2: TGroupBox； Edit1: TEdit； Button1: TButton； Edit2: TEdit； Button2: TButton； GroupBox3: TGroupBox； GroupBox4: TGroupBox； GroupBox5: TGroupBox； Button3: TButton； Button4: TButton； Button5: TButton； Button6: TButton； Button7: TButton； Button8: TButton； ADOQuery1DSDesigner: TStringField； ADOQuery1DSDesigner3: TStringField； ADOQuery1DSDesigner4: TStringField； ADOQuery1DSDesigner2: TStringField； SpeedButton1: TSpeedButton； procedure Button4Click(Sender: TObject)； procedure Button6Click(Sender: TObject)； procedure Button8Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure Button7Click(Sender: TObject)； procedure Button1Click(Sender: TObject)； procedure Button2Click(Sender: TObject)； procedure Button3Click(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure SpeedButton1Click(Sender: TObject)； private Private declarations public Public declarations end； var 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： pro_info: Tpro_info； implementation uses main2； $R *.dfm procedure Tpro_info.Button4Click(Sender: TObject)； begin adoquery1.Append ； end； procedure Tpro_info.Button6Click(Sender: TObject)； begin adoquery1.Edit； end； procedure Tpro_info.Button8Click(Sender: TObject)； begin adoquery1.Delete； end； procedure Tpro_info.Button5Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Tpro_info.Button7Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Tpro_info.Button1Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from baoxian where 汽車編號 =+edit1.text+)； adoquery1.Open； end； procedure Tpro_info.Button2Click(Sender: TObject)； begin 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from baoxian where 公司名稱 =+edit2.text+)； adoquery1.Open； end； procedure Tpro_info.Button3Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from baoxian )； adoquery1.Open； end； procedure Tpro_info.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； procedure Tpro_info.SpeedButton1Click(Sender: TObject)； begin pro_info.Hide； end； end. 車輛信息模塊代碼 unit cla_info6； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Buttons； type Tcla_info = class(TForm) Button1: TButton； DBGrid1: TDBGrid； DataSource1: TDataSource； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： ADOQuery1: TADOQuery； GroupBox1: TGroupBox； GroupBox2: TGroupBox； GroupBox3: TGroupBox； GroupBox4: TGroupBox； GroupBox5: TGroupBox； Edit1: TEdit； Button2: TButton； Edit2: TEdit； Button3: TButton； Button4: TButton； Button5: TButton； Button6: TButton； Button7: TButton； Button8: TButton； ADOQuery1DSDesigner: TStringField； ADOQuery1DSDesigner2: TStringField； ADOQuery1DSDesigner3: TStringField； ADOQuery1DSDesigner4: TStringField； SpeedButton1: TSpeedButton； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure Button2Click(Sender: TObject)； procedure Button3Click(Sender: TObject)； procedure Button4Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure Button6Click(Sender: TObject)； procedure Button7Click(Sender: TObject)； procedure Button8Click(Sender: TObject)； procedure Button1Click(Sender: TObject)； procedure SpeedButton1Click(Sender: TObject)； private Private declarations public Public declarations end； var cla_info: Tcla_info； implementation $R *.dfm procedure Tcla_info.FormClose(Sender: TObject； var Action: TCloseAction)； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： begin Action := cafree； end； procedure Tcla_info.Button2Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from cheliang where 汽車編號 =+edit1.text+)； adoquery1.Open； end； procedure Tcla_info.Button3Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from cheliang where 汽車顏色 =+edit2.text+)； adoquery1.Open； end； procedure Tcla_info.Button4Click(Sender: TObject)； begin adoquery1.Append ； end； procedure Tcla_info.Button5Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Tcla_info.Button6Click(Sender: TObject)； begin adoquery1.Edit； end； procedure Tcla_info.Button7Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Tcla_info.Button8Click(Sender: TObject)； begin 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： adoquery1.Delete； showmessage(修改成功 )； end； procedure Tcla_info.Button1Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from cheliang )； adoquery1.Open； end； procedure Tcla_info.SpeedButton1Click(Sender: TObject)； begin cla_info.hide； end； end. 客戶模塊代碼 unit kehu9； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, Buttons； type Tkehu = class(TForm) DBGrid1: TDBGrid； Button1: TButton； GroupBox1: TGroupBox； GroupBox2: TGroupBox； GroupBox3: TGroupBox； GroupBox4: TGroupBox； Edit1: TEdit； Button2: TButton； Edit2: TEdit； Button3: TButton； Edit3: TEdit； Button4: TButton； Edit4: TEdit； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： Button5: TButton； DataSource1: TDataSource； ADOQuery1: TADOQuery； ADOQuery1DSDesigner: TStringField； ADOQuery1DSDesigner2: TStringField； ADOQuery1DSDesigner3: TStringField； ADOQuery1DSDesigner4: TStringField； ADOQuery1DSDesigner5: TStringField； SpeedButton1: TSpeedButton； procedure Button1Click(Sender: TObject)； procedure Button2Click(Sender: TObject)； procedure Button3Click(Sender: TObject)； procedure Button4Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure FormCreate(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure SpeedButton1Click(Sender: TObject)； private Private declarations public Public declarations end； var kehu: Tkehu； implementation $R *.dfm procedure Tkehu.Button1Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from kehu )； adoquery1.Open； end； procedure Tkehu.Button2Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from kehu where 客戶編號 =+edit1.text+)； adoquery1.Open； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： end； procedure Tkehu.Button3Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from kehu where 客戶姓名 =+edit2.text+)； adoquery1.Open； end； procedure Tkehu.Button4Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from kehu where 年齡 =+edit3.text+)； adoquery1.Open； end； procedure Tkehu.Button5Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from kehu where 性別 =+edit4.text+)； adoquery1.Open； end； procedure Tkehu.FormCreate(Sender: TObject)； begin adoquery1.Open； end； procedure Tkehu.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； procedure Tkehu.SpeedButton1Click(Sender: TObject)； begin kehu.Hide； end； end. 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 會員界面代碼 unit huiyuan8； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Buttons； type Thuiyuan = class(TForm) DBGrid1: TDBGrid； GroupBox1: TGroupBox； GroupBox2: TGroupBox； GroupBox3: TGroupBox； GroupBox4: TGroupBox； GroupBox5: TGroupBox； Edit1: TEdit； Button1: TButton； Edit2: TEdit； Button2: TButton； Button3: TButton； Button4: TButton； Button5: TButton； Button6: TButton； Button7: TButton； Button8: TButton； DataSource1: TDataSource； ADOQuery1: TADOQuery； ADOQuery1DSDesigner: TStringField； ADOQuery1DSDesigner2: TStringField； ADOQuery1DSDesigner3: TStringField； ADOQuery1DSDesigner4: TStringField； ADOQuery1DSDesigner5: TStringField； SpeedButton1: TSpeedButton； procedure Button8Click(Sender: TObject)； procedure Button7Click(Sender: TObject)； procedure Button6Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure Button3Click(Sender: TObject)； procedure Button4Click(Sender: TObject)； procedure Button2Click(Sender: TObject)； procedure Button1Click(Sender: TObject)； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure FormCreate(Sender: TObject)； procedure SpeedButton1Click(Sender: TObject)； private Private declarations public Public declarations end； var huiyuan: Thuiyuan； implementation $R *.dfm procedure Thuiyuan.Button8Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan )； adoquery1.Open； end； procedure Thuiyuan.Button7Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Thuiyuan.Button6Click(Sender: TObject)； begin adoquery1.Edit； end； procedure Thuiyuan.Button5Click(Sender: TObject)； begin adoquery1.Delete； showmessage(修改成功 )； end； procedure Thuiyuan.Button3Click(Sender: TObject)； begin adoquery1.Append； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： end； procedure Thuiyuan.Button4Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Thuiyuan.Button2Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan where 會員姓名 =+edit2.text+)； adoquery1.Open； end； procedure Thuiyuan.Button1Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan where 客戶編號 =+edit1.text+)； adoquery1.Open； end； procedure Thuiyuan.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； procedure Thuiyuan.FormCreate(Sender: TObject)； begin adoquery1.Open； end； procedure Thuiyuan.SpeedButton1Click(Sender: TObject)； begin huiyuan.Hide； end； end. 日常汽車租賃界面代碼 unit huiyuan8； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Buttons； type Thuiyuan = class(TForm) DBGrid1: TDBGrid； GroupBox1: TGroupBox； GroupBox2: TGroupBox； GroupBox3: TGroupBox； GroupBox4: TGroupBox； GroupBox5: TGroupBox； Edit1: TEdit； Button1: TButton； Edit2: TEdit； Button2: TButton； Button3: TButton； Button4: TButton； Button5: TButton； Button6: TButton； Button7: TButton； Button8: TButton； DataSource1: TDataSource； ADOQuery1: TADOQuery； ADOQuery1DSDesigner: TStringField； ADOQuery1DSDesigner2: TStringField； ADOQuery1DSDesigner3: TStringField； ADOQuery1DSDesigner4: TStringField； ADOQuery1DSDesigner5: TStringField； SpeedButton1: TSpeedButton； procedure Button8Click(Sender: TObject)； procedure Button7Click(Sender: TObject)； procedure Button6Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure Button3Click(Sender: TObject)； procedure Button4Click(Sender: TObject)； procedure Button2Click(Sender: TObject)； procedure Button1Click(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure FormCreate(Sender: TObject)； procedure SpeedButton1Click(Sender: TObject)； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： private Private declarations public Public declarations end； var huiyuan: Thuiyuan； implementation $R *.dfm procedure Thuiyuan.Button8Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan )； adoquery1.Open； end； procedure Thuiyuan.Button7Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Thuiyuan.Button6Click(Sender: TObject)； begin adoquery1.Edit； end； procedure Thuiyuan.Button5Click(Sender: TObject)； begin adoquery1.Delete； showmessage(修改成功 )； end； procedure Thuiyuan.Button3Click(Sender: TObject)； begin adoquery1.Append； end； procedure Thuiyuan.Button4Click(Sender: TObject)； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： begin adoquery1.Post； showmessage(修改成功 )； end； procedure Thuiyuan.Button2Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan where 會員姓名 =+edit2.text+)； adoquery1.Open； end； procedure Thuiyuan.Button1Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan where 客戶編號 =+edit1.text+)； adoquery1.Open； end； procedure Thuiyuan.FormClos