刘磊

<br />打印dbgrid数据：<br />//==============================================================================<br />//打印DBGrid中的所有数据********************************************************<br />//===================================================================

dbgrideh的events事件组下，找到oncolwidthschanged事件procedure TForm1.DBGridEh1ColWidthsChanged(Sender: TObject);vari:Integer;begin //动态调整DDBGridEh例宽度 for i := 0 to DBGridEh1.Columns.Count - 1 do be

<br />procedure TSetForm.SavebtClick(Sender: TObject);<br />begin<br />  with DataFrm.ADOQuery do<br />  begin<br />    Close;<br />    SQL.

vari:Integer;begin for i := 0 to cxGrid2DBTableView1.DataController.RecordCount-1 do begin ShowMessage(cxGrid2DBTableView1.Dat

<br />var v: Variant; y: Integer;Begin If OpenDialog1.Execute Then begin v := CreateOleObject('Excel.Application'); try v.Workbooks.Open(OpenDialog1.FileName); v.WorkSheets[1].Activate; y:=v.ActiveSheet.UsedRange.Rows.Count;

<br />-- ???<br /><br />createtable tb<br />(<br />    工厂 varchar(10),<br />    库地 int,<br />    类型 varchar(10),<br />    属性 varchar(10),<br />    SKU varchar(10),<br />    批次 varchar(10),<br />    名称 varchar(10),<br />    入库时间 datetime,<br />    数量 int,<b

<br />学完这个你就成为excel高手了！（Delphi对Excel的所有操作）逐个试试！<br /> <br />一) 使用动态创建的方法 <br /><br />首先创建 Excel 对象，使用ComObj: <br />var ExcelApp: Variant; <br />ExcelApp := CreateOleObject( 'Excel.Application' ); <br /><br />1) 显示当前窗口： <br />ExcelApp.Visible := True; <br /

<br />在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。<br />    以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。<br />    示例程序的运行：<br />    在

<br />form1.memo1.lines.Clear; //清空MEMO1<br /> <br />form1.OpenDialog1.execute;<br />form1.Memo1.Lines.LoadFromFile(form1.OpenDialog1.filename); //设置打开文件<br /> <br />form1.saveDialog1.execute;<br />form1.Memo1.Lines.savetoFile(form1.saveDialog1.filename);<

<br />颜色常量.<br />   在DELPHI中除了可以使用RGB(R,G,B)颜色以外,还可以使用系统中给定的颜色常量.<br />   例:EDIT1.COLOR:=CLRED;<br />   颜色常量有:<br />   CLAQUA浅绿色.<br />   CLBLACK黑色.<br />   CLBLUE蓝色.<br />   CLDKGRAY灰黑色.<br />   CLFUCHSIA紫红色.<br />   CLGRAY灰色.<br />   CLGREEN绿色.<br />   C

ar ExpClass: TDBGridEhExportClass; Ext: string;begin if ciqry.Active then begin DBGridEh1.SetFocus; SaveDialog1.Filter := 'xls工作簿(*.xls)|*.xls|'; //'xls工作簿(*.xls)|*.xls'+