阳光有点冷

dbgrid数据导出为exceluses Excel2000,ComObj;procedure F_Form.Button1Click(Sender: TObject);var myExcel:TExcel; Int_i,Int_j,rowCount,columnCount:Integer; ExcelId:Variant;begin try ExcelId:=CreateOleObject('Excel.Application'); except...

常用操作Spreadsheet常用属性标题栏是否可见 Spreadsheet1.TitleBar.Visible=true标题栏背景颜色 Spreadsheet1.TitleBar.Interior.Color="Green"标题栏标题内容 Spreadsheet1.TitleBar.Caption="test"标题栏字体颜色 Spreadsheet1.TitleBar.Font.Color="Red"标题栏字体名称 Spreadsheet1.TitleBar.Font.Name="Vendan

第一步：设置cxgrid的属性， OptionsView.Indicator = True第二步：写OnCustomDrawIndicatorCell方法procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean

未设置前效果，没有居中居中代码procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin with Sender as TStringGrid do begin Canvas.FillRect...

SQL需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete）增加with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字段1,字段2,字段3) values(:a,:b,:c)');//前面的字段就是需要增加的 parameters.ParamByName('a').Value:=t