汽车租赁公司业务管理系统程序代码-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 附录 : 程序代码 开场 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 秒后自动关闭 if itime=5 then begin timer1.Enabled := false； flash.Visible := false； close； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； end； procedure Tflash.Image1Click(Sender: TObject)； begin close； /点击界面 ,flash 关闭 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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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)； /创建类型信息窗口 teac_info.Show； end； procedure Tmain.N3Click(Sender: TObject)； begin /pro_info := Tpro_info.Create(self)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： $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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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, 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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. 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 会员界面代码 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)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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