epx数据库相关操作学习总结

1、数据库操作相关代码声明变量var ADOConnection1: TADOConnection; 局部变量AdoQuery : TADOQuery;数据库连接： ADOConnection1 := TADOConnection.Create(nil); ADOConnection1.ConnectionString := Provider=Microsoft.ACE.OLEDB.12.0;Data Sou + rce= + CommandLine.ProjectRoot + test.accdb + ;Persist Security Info=False; ADOConnection1.Lo

2、ginPrompt := False;/不显示数据库登录窗口 ADOConnection1.Connected := True;创建连接 AdoQuery := TADOQuery.Create(nil); AdoQuery.Connection := ADOConnection1;4、执行查询 SQL := select UserName from sys_user; ADOQuery.Close; ADOQuery.SQL.Clear; ADOQuery.SQL.Add(SQL); ADOQuery.Open;数据库添加 AdoQuery:= TADOQuery.Create(nil);

3、AdoQuery Connection := ADOConnection1; AdoQuery.SQL.TEXT := insert into txl(姓名,性别) values(:a,:b); AdoQuery.Parameters0.Value := Edit1.TEXT; AdoQuery.Parameters1.Value := Edit2.TEXT; AdoQuery.ExecSQL;数据库删除 AdoQuery:= TADOQuery.Create(nil); AdoQuery.Connection := ADOConnection1; AdoQuery.SQL.TEXT := d

4、elete from txl where 姓名=:username; AdoQuery.Parameters0.Value := Edit1.TEXT;AdoQuery.ExecSQL;7、数据库修改 AdoQuery:= TADOQuery.Create(nil); AdoQuery Connection := ADOConnection1; AdoQuery. .SQL.TEXT := update txl set 姓名=:username where 姓名=:tiaojian; AdoQuery.Parameters0.Value := Edit1.TEXT; AdoQuery.Para

5、meters1.Value := Edit2.TEXT; AdoQuery.ExecSQL;8、将查询的值赋值给COMBOBOX框for i:=0 to ADOQuery.RecordCount-1 do begin ComboBox1.Items.Add(ADOQuery.fieldbyname(UserName).asstring); ComboBox2.Items.Add(ADOQuery.fieldbyname(sex).asstring); ADOQuery.next; end;9、combobox实现数据内容的级联 ComboBox2.ItemIndex:=combobox1.it

6、emindex;10、日历函数 var aDate,selDate:string;begin selDate:=datetostr(now); aDate:=this.PickDate(aDate,selDate,0,0);Edit1.text:=FormatDateTime(yyyy年mm月dd日,strtodate(aDate);end; 11、金额转大写函数 Edit2.text:= this.CnMoneyCase(Edit1.Text); EXCEL表格相关操作代码声明变量 var EPX : Variant; 局部变量var Excel : Variant;窗体打开事件EPX :=

7、 ExcelPanelX1.OleObject;ExcelPanelX1.FileName := C:UsersAdministratorDesktop11学习bgzdhls离行自助情况.xlsx;/模板路径ExcelPanelX1.EnableEvent := True;或者EPX:=ExcelPanelX1.OleObject; purl:=this.GetCurrentDirectory+信息表.xlsx;/获取当前目录+文件ExcelPanelX1.FileName:=purl;/显示一个Excel表格 Excel.ExecuteExcel4Macro(Show.ToolBar(Rib

8、bon,True); /显示工具条和操作按钮ExcelPanelX1.EnableEvent:=True;函数回调关闭窗体事件FormCloseQueryEPX.FreeMe;EPX := Unassigned;表格赋值 Excel := EPX.Excel; for I := 1 to 10 do begin for J := 1 to 10 do begin Excel.CellsI,J.Value := IntToStr( I * 10 + J ); end; end;格式文本赋值用MEMO控件 EXCEL:=EPX.Excel; for i:=0 to Memo2.Lines.Count do begin s:=s+#13#10+memo2.Linesi ; Excel.cells15,3.value:=s; end;数据表格另存为EPX.AcceptText;/像刷新一样 this.Sleep(500); Excel:=EPX.Excel; Excel.ActiveWorkBook.Save; this.CopyFile(E:bgzdh数据表.xls,c:数据表.xls,True);数据表打印 Excel:=EPX.Excel; Excel.Ac