-
编辑 删除
DELPHI COMBOBOX 显示最近几个月份
想了解DELPHI COMBOBOX 显示最近几个月份，如当前是20090103，在COMBOBOX.ITEMS里显示'200810、200811、200812、200901'等四个选项。不对数据库访问。//返回最近几个年月procedure TForm1.Button1Click(Sender: TOb...
-
编辑 删除
DELPHI 设置网关、DNS
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButto...
-
编辑 删除
DELPHI7 DBGRID 导出EXCEL
uses comobj;function TSocialInsuranceForm.ExportDBGrid(DBGrid: TDBGrid; SheetName: string): boolean;//直接保存，不显示EXCEL var c, r, i, j: integer; app: Olevariant; TempFileName, ResultFileName: ...
-
编辑 删除
DELPHI 删除数据例子
删除数据是经常操作的事，有时候不小心按错删除怎么办。因此增加确认条件。确认后才进行删除。[@more@]procedure TEduForm.DeleteBtnClick(Sender: TObject); var csql:string;begin //删除按钮 。 if MessageBox(0,'删除当前记录，删除后不能恢复。'+#13+'要删除按"是",否则按"否"。','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then begin csql:='delete bas_education where eduNo='+quotedStr(eduNoedt.Text); with udm.Qry_edu do begin close; sql.Clear; sql.Add(csql);
-
编辑 删除
quotedStr() 应用--DELPHI
var csql,cstr:string;begin // quotedStr(edit1.text) 以说是在sql查询分析器里给字符串edit1.text加个单引号,可以完全抛开delphi的语法. cStr:='%'+trim(edit1.Text)+'%'; cSql:='select * from basUse...
-
编辑 删除
DELPHI打开新窗口，可以离开主窗口
procedure TForm1.About1Click(Sender: TObject);begin // 打开新窗口，可以离开主窗口。 if not assigned(helpForm) then helpForm:=helpForm.create(self); helpForm.show;end;[@more@]procedure TForm1.About1Click(Sender: TObject);begin if not assigned(helpForm) then helpForm:=helpForm.create(self); helpForm.show;end;
-
编辑 删除
BCB6.0下编译的EXE文件,没有找到VCL60.BPL
问题: BCB6.0下编译的EXE文件,不能在其他机器上运行(只有装了C++BUILDER的机器才能执行)其提示为:没有找到vcl60.bpl. 解决方法: 打开工程选项(Ctrl + Shift + F11) 1.在compiler下选择Release 2.在Packages下去除Build with Runtime Packages 3.在Linker下去除Use dynamic RTL[@more@]运行程序编译运行程序编译 三．运行程序 在菜单中选择【Run】中的【Run】，或者直接按快捷菜单上的运行按钮，还有是按快捷键F9，就可以运行当前程序。 四．编译程序 在菜单中选择【Project】中的【build project1】就可以把程序编译成为
-
编辑 删除
DELPHI FAST REPORT使用barcode组件--ERROR
procedure TForm1.Button1Click(Sender: TObject);begin // frReport1.LoadFromFile('barcode.frf'); frReport1.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'barcode.frf'); frReport1.ShowReport; end;因要使用barcode组件，用了fastreport，但出现了Project Project1.exe raised exception class EClassNotFound with message 'TfrBarCodeView'.这是什么原因呢？ 因為沒有使用“frBarCodeObject”控件。[@more@]
