delphi DBGRID TITLE CAPTION 標題與寬度

// 查詢出來的數據 放入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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/729024/viewspace-1039771/