




免费预览已结束,剩余8页可下载查看
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
附程序源代码:program xmjl;uses Forms, windows, main in main.pas Form1, dm in dm.pas dm2: TDataModule, about in about.pas AboutBox, report in report.pas qr1: TQuickRep, logosrc in logosrc.pas logo, login in login.pas denglu;$R *.resbegin Application.Initialize; logo:=tlogo.Create(application); logo.Show; logo.Update; Application.CreateForm(Tdm2, dm2); Application.CreateForm(Tdenglu, denglu); sleep(1000); logo.Hide; logo.Free; Application.Run;end.unit logosrc;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls;type Tlogo = class(TForm) Image1: TImage; private Private declarations public Public declarations end;var logo: Tlogo;implementation$R *.dfmend.unit login;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, Buttons;type Tdenglu = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; ComboBox1: TComboBox; MaskEdit1: TMaskEdit; Label1: TLabel; Label2: TLabel; procedure BitBtn2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private Private declarations public Public declarations end;var denglu: Tdenglu;implementation uses dm,main;$R *.dfmprocedure Tdenglu.BitBtn2Click(Sender: TObject);begin application.Terminate;end;procedure Tdenglu.FormCreate(Sender: TObject);begin with dm2.ADOTable1 do begin open; first; while not eof do begin combobox1.Items.Add(fields0.Value ); next; end; combobox1.ItemIndex :=0; end;end;procedure Tdenglu.BitBtn1Click(Sender: TObject);begin with dm2.ADOTable1 do begin if locate(us,combobox1.Text,) then begin if maskedit1.text=fields1.Value then begin hide; with tform1.Create(self) do showmodal; end; application.Terminate ; end; end;end;end.unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, DBActns, ActnList, DB, ExtCtrls, StdCtrls, Mask, DBCtrls, ImgList, Buttons, Grids, DBGrids;type TForm1 = class(TForm) PageControl1: TPageControl; StatusBar1: TStatusBar; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet5: TTabSheet; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; DataSource1: TDataSource; ActionList1: TActionList; DataSetFirst1: TDataSetFirst; DataSetPrior1: TDataSetPrior; DataSetNext1: TDataSetNext; DataSetLast1: TDataSetLast; DataSetInsert1: TDataSetInsert; DataSetDelete1: TDataSetDelete; DataSetEdit1: TDataSetEdit; DataSetPost1: TDataSetPost; Panel1: TPanel; Panel2: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; Panel3: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; ImageList1: TImageList; BitBtn5: TBitBtn; BitBtn10: TBitBtn; Label25: TLabel; Label26: TLabel; Panel4: TPanel; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtn11: TBitBtn; BitBtn12: TBitBtn; BitBtn13: TBitBtn; Panel8: TPanel; DBGrid1: TDBGrid; Panel9: TPanel; Label27: TLabel; ComboBox1: TComboBox; Label28: TLabel; Edit1: TEdit; BitBtn14: TBitBtn; BitBtn15: TBitBtn; Panel13: TPanel; DBGrid3: TDBGrid; Panel14: TPanel; Label59: TLabel; Label60: TLabel; ComboBox3: TComboBox; Edit3: TEdit; BitBtn18: TBitBtn; BitBtn19: TBitBtn; BitBtn21: TBitBtn; Timer1: TTimer; Label6: TLabel; DBEdit3: TDBEdit; Panel5: TPanel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBEdit12: TDBEdit; TabSheet4: TTabSheet; Panel6: TPanel; GroupBox1: TGroupBox; SpeedButton1: TSpeedButton; DBGrid2: TDBGrid; DBEdit13: TDBEdit; DBEdit14: TDBEdit; DBNavigator1: TDBNavigator; Label15: TLabel; Label16: TLabel; DataSource2: TDataSource; procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure BitBtn5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure filldata(sender:tcombobox); procedure search(f1:tcombobox;t1:tedit); procedure dispall; procedure FormActivate(Sender: TObject); procedure BitBtn14Click(Sender: TObject); procedure BitBtn15Click(Sender: TObject); procedure BitBtn13Click(Sender: TObject); procedure BitBtn17Click(Sender: TObject); procedure BitBtn21Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure BitBtn11MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure BitBtn18Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation uses about,dm,report,login;$R *.dfmprocedure TForm1.N9Click(Sender: TObject);begin tabsheet2.Show;end;procedure TForm1.N10Click(Sender: TObject);begin tabsheet3.Show;end;procedure TForm1.N12Click(Sender: TObject);begin tabsheet5.Show;end;procedure TForm1.N8Click(Sender: TObject);begin tabsheet1.Show;end;procedure TForm1.N14Click(Sender: TObject);begin application.Terminate ;end;procedure TForm1.N5Click(Sender: TObject);begin with taboutbox.Create(self) do ShowModal ;end;procedure TForm1.BitBtn5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin dbedit1.Text:=inttostr(dm2.adoquery1.RecordCount+1); dbedit2.SetFocus;end;procedure TForm1.filldata(sender:tcombobox);var iCount: Integer; /将从数据模块中取得的数据库表的字段名填入ComboBox中begin sender.Items.Clear; /首先清空ComboBox中Items的值 for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 do begin sender.Items.Add(DM2.ADOQuery1.FieldsiCount.FieldName); /加入字段名 DM2.ADOQuery1.Next; /向下移动到下一个字段 end; sender.ItemIndex := 0; /设置表单刚出现时ComboBox的值为第一个end;procedure TForm1.search(f1:tcombobox;t1:tedit); /自定义过程search(在数据库中搜寻指定条件的数据)var SearchField: string; /要查找的字段名 SearchValue: string; /要查找的字段值begin SearchField := Trim(f1.Text); /将ComboBox的值赋给SearchField SearchValue := % + Trim(t1.Text) + %; /将Edit的值赋给SearchField with DM2.ADOQuery1 do begin close; /先关闭数据模块中的ADOQuery sql.Clear; /清空ADOQuery中的SQL值 sql.Add(select * from xmb where + SearchField + like + SearchValue + ); /进行数据查询的SQL语句(SearchFidel和SearchValue / 分别赋到SQL语句中 end; Dm2.ADOQuery1.Open; /打开数据模块中的ADOQueryend;procedure TForm1.FormActivate(Sender: TObject);begin filldata(combobox1); filldata(combobox3); tabsheet1.Show;end;procedure TForm1.BitBtn14Click(Sender: TObject);begin search(combobox1,edit1);end;procedure TForm1.BitBtn15Click(Sender: TObject);begin dispall;end;procedure TForm1.dispall;begin with dm2.ADOQuery1 do begin close; sql.clear; sql.Add(select * from xmb); open; end;end;procedure TForm1.BitBtn13Click(Sender: TObject);begin if MessageDlg(你确信要删除记录?,mtwarning,mbok,mbcancel,0)=mrok then DM2.ADOQuery1.Delete;end;procedure TForm1.BitBtn17Click(Sender: TObject);begin dispall;end;procedure TForm1.BitBtn21Click(Sender: TObject);begin with tqr1.Create(self) do Preview;end;procedure TForm1.Timer1Timer(Sender: TObject);begin statusbar1.Panels3.Text :=timetostr(now); statusbar1.Panels4.Text :=formatdatetime(yyyy年MM月dd日,now);end;procedure TForm1.BitBtn11MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin dbedit12.SetFocus;end;procedure TForm1.BitBtn18Click(Sender: TObject);begin search(combobox3,edit3);end;procedure TForm1.SpeedButton1Click(Sender: TObject);begin with dm2.ADOQuery1 do begin close; sql.Clear; sql.Add(delete * from xmb); ExecSQL; close; sql.Clear; sql.Add(select * from xmb); open; end;end;end.unit dm;interfaceuses SysUtils, Classes, ADODB, DB;type Tdm2 = class(TDataModule) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; ADOQuery1DSDesigner: TWideStringField; ADOQuery1DSDesigner2: TBCDField; ADOQuery1DSDesigner3: TBCDField; ADOQuery1DSDesigner4: TDateTimeField; ADOQuery1DSDesigner5: TWideStringField; ADOQuery1total: TCurrencyField; ADOTable1: TADOTable; procedure ADOQuery1CalcFields(DataSet: TDataSet); private Private declarations public Public declarations end;var dm2: Tdm2;implementation$R *.dfmprocedure Tdm2.ADOQuery1CalcFields(DataSet: TDataSet);begin adoquery1total.Value :=ADOQuery1DSDesigner2.Value - ADOQuery1DSDesigner3.value ;end;end.unit report;interfaceuses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB;type Tqr1 = class(TQuickRep) ColumnHeaderBand1: TQRBand; TitleBand1: TQRBand; QRLabel1: TQRLabel; DetailBand1: TQRBand;
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年河湖整治战略合作协议
- 2025年综合商业广场策划与管理服务协议
- 2025年购地建厂协议示范文本
- 2025年河道疏浚工程合作协议书样本
- 事业单位房屋管理风险防控体系构建
- 跨境电商的跨文化沟通与国际团队管理
- 精准消费数据与资金筹集的互动关系
- 引导资本流向消费领域的有效路径
- 商业空间节假日旅游市场策略规划基础知识点归纳
- 深化文化体制机制改革的面临的问题、机遇与挑战
- 学前教育学智慧树知到答案2024年兰州现代职业学院
- 机器人工程专业《专业英语与科技论文写作》教学大纲
- 宁乡市教师招聘考试题库2024
- 施工安全的教育培训记录表
- 2024时事政治考试题库(100题)
- 生产异常报告单
- DL∕T 5776-2018 水平定向钻敷设电力管线技术规定
- 早餐厅承包合同(2024版)
- JGJ124-1999 殡仪馆建筑设计规范
- 人工合成石墨导热材料将成为热管理市场主流散热解决方案-未来具有巨大发展空间
- JTS-110-10-2012水运工程标准施工监理招标文件
评论
0/150
提交评论