当用DBGrid分别显示多个Query提供的数据时,怎么样各个属性名自动转化为汉字
解决方案 »
- 用rzfilelistbox的时候数组越界,用listbox就不会,怎么办
- 求教一个excel导入SqlServer的问题!!
- listview选中某行的事件是哪个阿,谢谢
- 如何保存报表为html格式或BMP????
- 【我是菜鸟】请问如何做出自动隐藏(/自动伸缩/自动依靠)的效果,类似MS7.0集成开发界面
- 几个问题
- 怎么在Access中插入一条记录,怎么还提示自动增长字段也要值,它不是系统自动生成的吗?
- Register ActiveX Server与Install COM+ Objects有什么区别??
- 请问如何操作Dbgrid控件
- 如何限制edit 输入框所输入的字符,maxlength好像不起作用。
- 搞定了图片在数据库的读取问题, 大家也看看.
- 怎么发消息获得其他win32程序里ListView里的数据
procedure TAskfm.suiButton1Click(Sender: TObject);
var
time1,time2:Tdatetime;
pzlx,pzh,zy1,dw1,jtdw1:string;
flag:boolean;
begin
adoquery2.close;
datasource1.dataset:=adoquery2;
dbgrid1.datasource:=datasource1;
if checkbox1.checked=true then flag:=true
else flag:=false;
pzlx:=trim(combobox1.text);
pzh:=trim(edit1.text);
zy1:=trim(edit2.text);
dw1:=trim(combobox2.text);
jtdw1:=trim(combobox3.text);
time1:=datetimepicker1.date;
time2:=datetimepicker2.date; askq(time1,time2,pzlx,pzh,zy1,dw1,jtdw1,'yfpz',adoquery2,flag);
askflag:=1;
dbgrid1.Columns.Items[0].Title.caption:='序号';
dbgrid1.Columns.Items[1].Title.caption:='日期';
dbgrid1.Columns.Items[2].Title.caption:='凭证类型';
dbgrid1.Columns.Items[3].Title.caption:='凭证号数';
dbgrid1.Columns.Items[4].Title.caption:='摘 要';
dbgrid1.Columns.Items[5].Title.caption:='借方金额';
dbgrid1.Columns.Items[6].Title.caption:='贷方金额';
dbgrid1.Columns.Items[7].Title.caption:='余额';
dbgrid1.Columns.Items[8].Title.caption:= '总余额';
dbgrid1.Columns.Items[9].Title.caption:='供应商名称';
dbgrid1.Columns.Items[10].Title.caption:='公司内部单位';
dbgrid1.Columns.Items[11].Title.caption:='备注';
dbgrid1.Columns.Items[0].Width:=40;
dbgrid1.Columns.Items[1].Width:=105;
dbgrid1.Columns.Items[2].Width:=60;
dbgrid1.Columns.Items[3].Width:=60;
dbgrid1.Columns.Items[4].Width:=60;
dbgrid1.Columns.Items[5].Width:=60;
dbgrid1.Columns.Items[6].Width:=60;
dbgrid1.Columns.Items[7].Width:=100;
dbgrid1.Columns.Items[8].Width:=100;
dbgrid1.Columns.Items[9].Width:=140;
dbgrid1.Columns.Items[10].Width:=100;
dbgrid1.Columns.Items[11].Width:=80;end;