拼音而不是名称
    dbcombobox2.Visible:=false;
    dbcombobox3.Visible:=true;
    dbedit26.Text:='20040101';
    //将插入，删除，修改和移动按钮关闭，防止错误操作
    bitbtn6.Enabled:=false;
    bitbtn7.Enabled:=false;
    bitbtn1.Enabled:=false;
    bitbtn2.Enabled:=false;
    bitbtn3.Enabled:=false;
    bitbtn4.Enabled:=false;
    bitbtn5.Enabled:=false;
    //打开保存和取消按钮的使能，允许保存或者取消
    bitbtn8.Enabled:=true;
    bitbtn9.Enabled:=true;
    //允许修改文本框中的内容
    dbedit1.ReadOnly:=false;
    dbedit2.ReadOnly:=false;
    dbedit3.ReadOnly:=false;
    dbedit4.ReadOnly:=false;
    dbedit5.ReadOnly:=false;
    dbedit6.ReadOnly:=false;
    dbedit7.ReadOnly:=false;
    dbedit8.ReadOnly:=false;
    dbedit9.ReadOnly:=false;
    dbedit10.ReadOnly:=false;
    dbedit11.ReadOnly:=false;
    dbedit12.ReadOnly:=false;
    dbedit13.ReadOnly:=false;
    dbedit14.ReadOnly:=false;
    dbedit15.ReadOnly:=false;
    dbedit16.ReadOnly:=false;
    dbedit17.ReadOnly:=false;
    dbedit18.ReadOnly:=false;
    dbedit19.ReadOnly:=false;
    dbedit20.ReadOnly:=false;
    dbedit21.ReadOnly:=false;
    dbedit22.ReadOnly:=false;
    dbedit23.ReadOnly:=false;
    dbedit24.ReadOnly:=false;
    dbedit25.ReadOnly:=false;
    dbedit26.ReadOnly:=false;
    
    end;
    
    //----------编辑一条已有的记录--------------
    procedure Tmaterials.BitBtn6Click(Sender: TObject);
    begin
    
    datasource1.DataSet.Edit;
    //物料主文件中存储的是类别的拼音，而不是名称，因此插入时
    //需要输入拼音而不是名称
    dbcombobox2.Visible:=false;
    dbcombobox3.Visible:=true;
    
    //将插入，删除，修改和移动按钮关闭，防止错误操作
    bitbtn6.Enabled:=false;
    bitbtn7.Enabled:=false;
    bitbtn1.Enabled:=false;
    bitbtn2.Enabled:=false;
    bitbtn3.Enabled:=false;
    bitbtn4.Enabled:=false;
    bitbtn5.Enabled:=false;
    //打开保存和取消按钮的使能，允许保存或者取消
    bitbtn8.Enabled:=true;
    bitbtn9.Enabled:=true;
    //允许修改文本框中的内容
    dbedit1.ReadOnly:=false;
    dbedit2.ReadOnly:=false;
    dbedit3.ReadOnly:

上一篇：HollowFontView.cpp
下一篇：白色姜花，略微开了