這幾段代碼是什麼意思呀! 
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.   

    ParamByName 参数名
    fieldbyname 字段名
    as... 作为哪种数据类型 
    就是数据库和外界通讯常用的啊,看看dataset,datasource 的概念吧
      

  2.   

    参考 hellolongbin(一个人[终不似,少年游]) 的意见
      

  3.   

    基本都是数据集相关的操作
    都是在赋值,很简单地。
    不要被吓到了。比如:
    tblOrderDetail.fieldbyname('UnitPrice').AsFloat   就是
    数据集名.FieldByName('字段名').转换的格式大概就这样。
      

  4.   

    TTable(dsMainDetail.DataSet).MasterSource := dsMainBrowse;
    LockEdit(TEdit(edtMainkey),True);
    /////////
    好像这样的,就是强制类型转换...