【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供Manufactory.pas参考，解决您在Manufactory.pas学习中工作中的难题，参考学习。

    unit Manufactory;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Buttons, StdCtrls, ExtCtrls, RzPanel;
    
    type
      TManufactoryForm = class(TForm)
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        RzGroupBox1: TRzGroupBox;
        Label1: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Label3: TLabel;
        Label4: TLabel;
        Edit3: TEdit;
        Label2: TLabel;
        ComboBox1: TComboBox;
        Edit5: TEdit;
        Label5: TLabel;
        Edit4: TEdit;
        Label6: TLabel;
        Label7: TLabel;
        Memo1: TMemo;
        procedure SpeedButton2Click(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      ManufactoryForm: TManufactoryForm;
    
    implementation
    
    uses POSIIDM,inc;
    
    {$R *.dfm}
    
    procedure TManufactoryForm.SpeedButton2Click(Sender: TObject);
    begin
      //
      Close;
    end;
    
    procedure TManufactoryForm.FormShow(Sender: TObject);
    var
      i:integer;
      posStr:string;
    begin
      //ManufactoryForm.Caption :=ManufactoryTitle;
      if attr<>'Edit' then begin
        Edit1.Text:='';
        Edit2.Text:='';
        Edit3.Text:='';
        Edit4.Text:='';
        Edit5.Text:='';
        Memo1.Text :=''
      end else
        //
        with DM.HumanResQuery do begin
          Close;
          SQL.Clear;
          SQL.Add('select * from Manufactory where M_EXIST=0 AND M_NAME='''+SelName+'''');
          Open;
          if Eof then Exit;
          Edit1.Text:=FieldValues['M_NAME'];
          Edit2.Text:=FieldValues['M_PRINCIPAL'];
          Edit3.Text:=FieldValues['M_PHONE'];
          Edit4.Text:=FieldValues['M_ADDR'];
          Edit5.Text:=FieldValues['M_HANDLESET'];
          Memo1.Text :=FieldValues['M_REMARK'];
          posStr:=FieldValues['M_POSITION'];
        end;
      Combobox1.Items.Clear;
      with DM.HumanResQuery do begin
        Close;
        SQL.Clear;
        SQL.Add('select P_NAME from POSITION');
        Open;
        while not Eof do begin
          //
          Combobox1.Items.Add(FieldValues['P_NAME']);
          Next;
        end;
      end;
      Combobox1.ItemIndex :=0;
      for i:=0 to Combobox1.Items.Count-1 do
        if Combobox1.Items[i]=posStr then
          Combobox1.ItemIndex :=i;
    end;
    
    procedure TManufactoryForm.SpeedButton1Click(Sender: TObject);
    begin
      if Edit1.Text ='' then begin//判断输入框是否为空
        MessageDlg('请输入供货商名称', mtInformation,[mbOk], 0);
        Exit;//退出该事件过程
      end;
      with DM.HumanResQuery do begin//调用数据模块中的数据集组件
        Close;
        SQL.Clear;
        if attr<>'Edit' then
          SQL.Add('select * from Manufactory WHERE M_EXIST=0')
        else
          SQL.Add('select * from Manufactory where M_EXIST=0 AND M_NAME='''+SelName+'''');
        Open;
        Edit;//使数据集处于编辑状态
        if attr<>'Edit' then
          Append;
        FieldValues['M_NAME']:=Edit1.Text;
        FieldValues['M_PHONE']:=Edit3.Text;
        FieldValues['M_ADDR']:=Edit4.Text;
        FieldValues['M_POSITION']:=Combobox1.Text;
        FieldValues['M_HANDLESET']:=Edit5.Text;
        FieldValues['M_PRINCIPAL']:=Edit2.Text;
        FieldValues['M_REMARK']:=Memo1.Text;
        Post;
        attr:='';
        MessageDlg('数据更新成功', mtInformation,[mbOk], 0);
        SetLogs('更新供货商信息');//往系统日志表中添加记录
      end;
    end;
    
    procedure TManufactoryForm.FormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
      attr:='';
      Action:=caFree
    end;
    
    end.