這幾段代碼是什麼意思呀!
1.
TTable(dsMainDetail.DataSet).MasterSource := dsMainBrowse;
LockEdit(TEdit(edtMainkey),True);
2.
qryUnitPrice.ParamByName('PartNum').AsString := tblOrderDetailPartNum.AsString;
qryUnitPrice.ParamByName('Revision').AsString := tblOrderDetailRevision.AsString;
qryUnitPrice.Open;3.
tblOrderDetail.fieldbyname('UnitPrice').AsFloat :=
qryUnitPrice.FieldByName('UnitPricePerPNL').AsFloat;4.
DisableControls;
if Not Active then Active := true;
Append;
EnableControls;
//置資料集部件的Active屬性為True來打開與資料集相連的資料庫表
if dsDetail.Dataset.Active = False then dsDetail.Dataset.Active := True;
edtMainkey.SetFocus;
fieldbyname('Empid').AsString := frmMain.Security.UserID;
fieldbyname('CompData').AsBoolean := False;
fieldbyname('CustomerId').AsString := CustId;
fieldbyname('MoneyCode').AsInteger := 1;
dboPOtype.ItemIndex := POtype;
dboStatus.ItemIndex := 0;
qryMainkey.Close;
7.
sparam := dsMainbrowse.dataset.fieldbyname('PONum').asstring
1.
TTable(dsMainDetail.DataSet).MasterSource := dsMainBrowse;
LockEdit(TEdit(edtMainkey),True);
2.
qryUnitPrice.ParamByName('PartNum').AsString := tblOrderDetailPartNum.AsString;
qryUnitPrice.ParamByName('Revision').AsString := tblOrderDetailRevision.AsString;
qryUnitPrice.Open;3.
tblOrderDetail.fieldbyname('UnitPrice').AsFloat :=
qryUnitPrice.FieldByName('UnitPricePerPNL').AsFloat;4.
DisableControls;
if Not Active then Active := true;
Append;
EnableControls;
//置資料集部件的Active屬性為True來打開與資料集相連的資料庫表
if dsDetail.Dataset.Active = False then dsDetail.Dataset.Active := True;
edtMainkey.SetFocus;
fieldbyname('Empid').AsString := frmMain.Security.UserID;
fieldbyname('CompData').AsBoolean := False;
fieldbyname('CustomerId').AsString := CustId;
fieldbyname('MoneyCode').AsInteger := 1;
dboPOtype.ItemIndex := POtype;
dboStatus.ItemIndex := 0;
qryMainkey.Close;
7.
sparam := dsMainbrowse.dataset.fieldbyname('PONum').asstring
fieldbyname 字段名
as... 作为哪种数据类型
就是数据库和外界通讯常用的啊,看看dataset,datasource 的概念吧
都是在赋值,很简单地。
不要被吓到了。比如:
tblOrderDetail.fieldbyname('UnitPrice').AsFloat 就是
数据集名.FieldByName('字段名').转换的格式大概就这样。
LockEdit(TEdit(edtMainkey),True);
/////////
好像这样的,就是强制类型转换...