ITPub博客

首页 > 数字化转型 > ERP > delphi DBGRID TITLE CAPTION 標題與寬度

delphi DBGRID TITLE CAPTION 標題與寬度

原创 ERP 作者:zaorv 时间:2019-07-13 19:33:05 0 删除 编辑

// 查詢出來的數據 放入DBGRID裡,並設置 標題頭名稱。

procedure TFrm_Wip_Bom.BomBtnClick(Sender: TObject);
begin //獲取 BOM數據
Screen.Cursor:=crSQLWait; //鼠標變成漏鬥。
dmqc_c.CD_TMP.Close;
dmqc_c.CD_TMP.CommandText:='select b.prod_no, a.model_nob, a.bom_no, a.per_num, a.ver, a.bzdw '
+ ', b.ma_no, b.ma_type, b.ma_unit, b.bzyl, b.upuse ,b.jbyl, b.remark from t_bomA a , t_bomb b '
+ ' where a. prod_no= b. prod_no and a. prod_no = '+ quotedStr(TYPE_NO_EDT.Text) ;//'''100SDC001I39''' ;
DmQc_c.CD_TMP.Open;
Screen.Cursor:=crDefault;

// 設置DBGRID的標題頭名稱與寬度。

with bom_DbGr do
begin
columns[0].title.caption:= '產品料號';
Columns.Items[0].Width :=90 ;
columns[1].title.caption:= '型號';
Columns.Items[1].Width :=90 ;
columns[2].title.caption:= '編號';
Columns.Items[2].Width := 40 ;
columns[3].title.caption:= '模組';
Columns.Items[3].Width :=30 ;
columns[4].title.caption:= '版本';
Columns.Items[4].Width := 20 ;
columns[5].title.caption:= '標準單位';
Columns.Items[5].Width := 30 ;

columns[6].title.caption:= '料號';
Columns.Items[6].Width := 60 ;
columns[7].title.caption:= '料名規格';
Columns.Items[7].Width := 120 ;
columns[8].title.caption:= '單位';
Columns.Items[8].Width := 40 ;
columns[9].title.caption:= '標準用量';
Columns.Items[9].Width :=60 ;
columns[10].title.caption:= '允許率';
Columns.Items[10].Width :=40 ;
columns[11].title.caption:= '基本用量';
Columns.Items[11].Width := 40 ;
columns[12].title.caption:= '備註';
Columns.Items[12].Width := 40 ;
end;
end;

[@more@]

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/729024/viewspace-1039771/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2018-09-12

  • 博文量
    192
  • 访问量
    145151