【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“MaterialsForm.pas”一文，供大家参考学习!

    unit MaterialsForm;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls, StdCtrls, Buttons, ToolWin, ExtCtrls, Grids, DBGrids,
      ADODB, DB, DBCtrls, DBTables, Mask,BomForm;
    
    type
      Tmaterials = class(TForm)
        ToolBar1: TToolBar;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        BitBtn4: TBitBtn;
        ToolButton1: TToolButton;
        BitBtn5: TBitBtn;
        BitBtn6: TBitBtn;
        BitBtn7: TBitBtn;
        ToolButton2: TToolButton;
        BitBtn8: TBitBtn;
        BitBtn9: TBitBtn;
        ToolButton3: TToolButton;
        BitBtn10: TBitBtn;
        Panel1: TPanel;
        BitBtn11: TBitBtn;
        Label1: TLabel;
        Edit1: TEdit;
        Label2: TLabel;
        Edit2: TEdit;
        Label3: TLabel;
        Edit3: TEdit;
        DBGrid1: TDBGrid;
        Panel2: TPanel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label14: TLabel;
        Label15: TLabel;
        Label16: TLabel;
        Label17: TLabel;
        Label18: TLabel;
        Label19: TLabel;
        Label20: TLabel;
        Label21: TLabel;
        Label22: TLabel;
        Label23: TLabel;
        Label24: TLabel;
        Label25: TLabel;
        Label26: TLabel;
        Label27: TLabel;
        Label28: TLabel;
        DataSource1: TDataSource;
        ADOTable1: TADOTable;
        ADOQuery1: TADOQuery;
        ADOQuery2: TADOQuery;
        DBEdit1: TDBEdit;
        DBEdit2: TDBEdit;
        DBEdit3: TDBEdit;
        DBComboBox1: TDBComboBox;
        DBEdit4: TDBEdit;
        DBComboBox2: TDBComboBox;
        DBEdit5: TDBEdit;
        DBEdit6: TDBEdit;
        DBEdit7: TDBEdit;
        DBEdit8: TDBEdit;
        DBEdit9: TDBEdit;
        DBEdit10: TDBEdit;
        DBEdit11: TDBEdit;
        DBEdit12: TDBEdit;
        DBEdit13: TDBEdit;
        DBEdit14: TDBEdit;
        DBEdit15: TDBEdit;
        DBEdit16: TDBEdit;
        DBEdit17: TDBEdit;
        DBEdit18: TDBEdit;
        DBEdit19: TDBEdit;
        DBEdit20: TDBEdit;
        DBEdit21: TDBEdit;
        DBEdit22: TDBEdit;
        DBEdit23: TDBEdit;
        DBEdit24: TDBEdit;
        DBEdit25: TDBEdit;
        DBEdit26: TDBEdit;
        DBComboBox3: TDBComboBox;
    
        procedure FormShow(Sender: TObject);
        procedure DataSource1DataChange(Sender: TObject; Field: TField);
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn4Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure BitBtn11Click(Sender: TObject);
        procedure BitBtn5Click(Sender: TObject);
        procedure BitBtn9Click(Sender: TObject);
        procedure BitBtn7Click(Sender: TObject);
        
       
        procedure BitBtn8Click(Sender: TObject);
        procedure BitBtn6Click(Sender: TObject);
        procedure BitBtn10Click(Sender: TObject);
        procedure Edit1KeyPress(Sender: TObject; var Key: Char);
        procedure Edit2KeyPress(Sender: TObject; var Key: Char);
        procedure Edit3KeyPress(Sender: TObject; var Key: Char);
        
       
    
    
      private
        { Private declarations }
      public
        OrderCode:string;
        { Public declarations }
      end;
    
    var
      materials: Tmaterials;
    
    implementation
    
    uses MainForm;
    
    {$R *.dfm}
    
    
    
    //-----------窗体显示时，设置表中的列宽并初始化下拉列表框-----
    procedure Tmaterials.FormShow(Sender: TObject);
    begin
    
    //设置列的宽度
    dbgrid1.Columns[0].Width:=64;
    dbgrid1.Columns[1].width:=80;
    //设置计量单位下拉列表框中的内容
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select distinct 计量单位 from 物料主文件');
    adoquery1.Open;
    while not adoquery1.Eof do
    begin
    dbcombobox1.Items.Add(adoquery1.fieldbyname('计量单位').AsString);
    adoquery1.Next;
    end;
    //设置计划类别下拉列表框中的内容
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select 类别名称,类别代码 from 物料计划类别');
    adoquery1.Open;
    while not adoquery1.Eof do
    begin
    dbcombobox2.Items.Add(adoquery1.fieldbyname('类别名称').AsString);
    dbcombobox3.Items.Add(adoquery1.fieldbyname('类别代码').AsString);
    adoquery1.Next;
    end;
    
    end;
    
    
    
    //-----------------显示物料主文件中的物料类别的名称--------------------
    procedure Tmaterials.DataSource1DataChange(Sender: TObject; Field: TField);
    var
    num,temp:string;
    begin
    //showmessage(dbgrid1.Fields[0].AsString);
    //根据选取的数据记录，查询出它的详细数据
    num:=dbgrid1.Fields[0].AsString;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from 物料主文件 where 物料编号='''+num+'''');
    adoquery1.Open;
    
    //显示计划类别的名称（物料主文件中存储的是其拼音编码）
    temp:=adoquery1.fieldbyname('计划类别').AsString;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select 类别