【delphi开源代码栏目提醒】:文章导读:在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MRCLXX.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit MRCLXX;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ImgList, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin, ExtCtrls,
      DB;
    
    type
      TFRM_CLXX = class(TForm)
        Panel2: TPanel;
        ToolBar1: TToolBar;
        ToolButton1: TToolButton;
        ToolButton2: TToolButton;
        ToolButton3: TToolButton;
        ToolButton4: TToolButton;
        ToolButton5: TToolButton;
        ToolButton6: TToolButton;
        ToolButton7: TToolButton;
        ToolButton8: TToolButton;
        ToolButton9: TToolButton;
        ToolButton10: TToolButton;
        ToolButton11: TToolButton;
        ToolButton12: TToolButton;
        ToolButton13: TToolButton;
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        Panel1: TPanel;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        TabSheet2: TTabSheet;
        GroupBox1: TGroupBox;
        DBGrid1: TDBGrid;
        ImageList1: TImageList;
        Label4: TLabel;
        Edit4: TEdit;
        Label5: TLabel;
        Edit5: TEdit;
        Label6: TLabel;
        Edit6: TEdit;
        Label7: TLabel;
        Edit7: TEdit;
        Datalb: TDataSource;
        procedure FormShow(Sender: TObject);
        procedure ToolButton1Click(Sender: TObject);
        procedure ToolButton2Click(Sender: TObject);
        procedure ToolButton4Click(Sender: TObject);
        procedure ToolButton5Click(Sender: TObject);
        procedure ToolButton8Click(Sender: TObject);
        procedure ToolButton9Click(Sender: TObject);
        procedure ToolButton10Click(Sender: TObject);
        procedure ToolButton11Click(Sender: TObject);
        procedure ToolButton13Click(Sender: TObject);
        procedure ToolButton3Click(Sender: TObject);
        procedure DBGrid1CellClick(Column: TColumn);
        procedure Edit2KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit3KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit4KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit5KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit6KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ToolButton6Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_CLXX: TFRM_CLXX;
      tb : integer = 0;
    implementation
      uses MR_DATA, MRCLXX_CX;
    {$R *.dfm}
    
    procedure TFRM_CLXX.FormShow(Sender: TObject);
    var
      i : integer;
      s : string;
    begin
      i := 1;
      with data.ADOa do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_cl order by cl_hh');
        open;
      end;
      datalb.DataSet := data.ADOa;
      if data.ADOa.RecordCount < 1 then
      begin
        edit1.Clear;
        edit2.Clear;
        edit3.Clear;
        edit4.Clear;
        edit5.Clear;
        edit6.Clear;
        edit7.Clear;
      end
      else
      begin
        data.ADOa.First;
        edit1.Text := data.ADOa.fieldbyname('cl_hh').AsString;
        edit2.Text := data.ADOa.fieldbyname('cl_gys').AsString;
        edit3.Text := data.ADOa.fieldbyname('cl_dw').AsString;
        edit4.Text := floattostr(data.ADOa.fieldbyname('cl_dj').AsFloat);
        edit5.Text := data.ADOa.fieldbyname('cl_rname').AsString;
        edit6.Text := data.ADOa.fieldbyname('cl_name').AsString;
        edit7.Text := data.ADOa.fieldbyname('cl_cd').AsString;
      end;
    end;
    
    procedure TFRM_CLXX.ToolButton1Click(Sender: TObject);
    var
       i : integer;
       s : string;
    begin
      i := 1;
      tb := 1;
      edit1.Clear;
      edit2.Clear;
      edit3.Clear;
      edit4.Clear;
      edit5.Clear;
      edit6.Clear;
      edit7.Clear;
      s := 'H'+formatdatetime('yyyymm',now());
      if data.ADOa.RecordCount<1 then
      begin
        edit1.Text := s+'000'+inttostr(i);
      end
      else
      begin
        data.ADOa.Last;
        i := strtoint(copy(data.ADOa.fieldbyname('cl_hh').AsString,8,4));
        edit1.Text := s+formatfloat('0000',i+1);
      end;
      ToolButton2.Enabled := false;
      ToolButton4.Enabled := true;
      ToolButton5.Enabled := true;
      edit2.SetFocus;
    end;
    
    procedure TFRM_CLXX.ToolButton2Click(Sender: TObject);
    begin
      tb := 2;
      ToolButton1.Enabled := false;
      ToolButton4.Enabled := true;
      ToolButton5.Enabled := true;
      edit2.SetFocus;
    end;
    
    procedure TFRM_CLXX.ToolButton4Click(Sender: TObject);
    var
       eh,en,ed : string;
    begin
      try
      if (edit1.Text = '')or(edit3.Text = '')or(edit6.Text = '') then
      begin
        showmessage('单位和物料名称不能为空。');
      end
      else
      begin
        eh := edit1.Text;
        en := edit6.Text;
        ed := edit3.Text;
        if tb = 1 then
          data.ADOa.Append;
        if tb = 2 then
          data.ADOa.Edit;
        data.ADOa.FieldByName('cl_hh').AsString := edit1.Text;
        data.ADOa.FieldByName('cl_gys').AsString := edit2.Text;
        data.ADOa.FieldByName('cl_dw').AsString := edit3.Text;
        data.ADOa.FieldByName('cl_dj').AsFloat := strtofloat(edit4.Text);
        data.ADOa.FieldByName('cl_rname').AsString := edit5.Text;
        data.ADOa.FieldByName('cl_name').AsString := edit6.Text;
        data.ADOa.FieldByName('cl_cd').AsString := edit7.Text;
        data.ADOa.Post;
        FRM_CLXX.FormShow(Sender);
      end;
      ToolButton1.Enabled := true;
      ToolButton2.Enabled := true;
      ToolButton4.Enabled := false;
      ToolButton5.Enabled := false;
      tb := 0;
      with data.ADOd do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_cpcl where clhh='+''''+eh+'''');
        open;
      end;
      if data.ADOd.RecordCount>0 then
      begin
        while not data.adod.Eof do
        begin
          data.ADOd.Edit;
          data.adod.FieldByName('clmc').AsString := en;
          data.ADOd.FieldByName('dw').AsString := ed;
          data.ADOd.Post;
          data.ADOd.Next;
        end;
      end;
      with data.ADOd do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_ll where wlhh='+''''+eh+'''');
        open;
      end;
      if data.ADOd.RecordCount>0 then
      begin
        while not data.adod.Eof do
        begin
          data.ADOd.Edit;
          data.adod.FieldByName('wlmc').AsString := en;
          data.ADOd.FieldByName('dw').AsString := ed;
          data.ADOd.Post;
          data.ADOd.Next;
        end;
      end;
      except
        showmessage('物料名称不能重复。');
      end;
    end;
    
    procedure TFRM_CLXX.ToolButton5Click(Sender: TObject);
    begin
      data.ADOa.Cancel;
      FRM_CLXX.FormShow(Sender);
      ToolButton1.Enabled := true;
      ToolButton2.Enabled := true;
      ToolButton4.Enabled := false;
      ToolButton5.Enabled := false;
      ToolButton8.Enabled := true;
      ToolButton9.Enabled := true;
      ToolButton10.Enabled := true;
      ToolButton11.Enabled := true;
    end;
    
    procedure TFRM_CLXX.ToolButton8Click(Sender: TObject);
    begin
      data.ADOa.First;
      edit1.Text := data.ADOa.fieldbyname('cl_hh').AsString;
      edit2.Text := data.ADOa.fieldbyname('cl_gys').AsString;
      edit3.Text := data.ADOa.fieldbyname('cl_dw').AsString;
      edit4.Text := floattostr(data.ADOa.fieldbyname('cl_dj').AsFloat);
      edit5.Text := data.ADOa.fieldbyname('cl_rname').AsString;
      edit6.Text := data.ADOa.fieldbyname('cl_name').AsString;
      edit7.Text := data.ADOa.fieldbyname('cl_cd').AsString;
      ToolButton8.Enabled := false;
      ToolButton9.Enabled := false;
      ToolButton10.Enabled := true;
      ToolButton11.Enabled := true;
    end;
    
    procedure TFRM_CLXX.ToolButton9Click(Sender: TObject);
    begin
      data.ADOa.Prior;
      if not d

上一篇：MRCKBB.pas
下一篇：秋天是疼痛的