【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了MRKHJB.pas相关资料，希望对各位网友有所帮助!

    unit MRKHJB;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ImgList, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin, ExtCtrls,
      DB, inifiles;
    
    type
      TFRM_KHJB = 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;
        DataSource1: TDataSource;
        procedure ToolButton1Click(Sender: TObject);
        procedure ToolButton2Click(Sender: TObject);
        procedure ToolButton3Click(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 FormShow(Sender: TObject);
        procedure DBGrid1CellClick(Column: TColumn);
        procedure ToolButton13Click(Sender: TObject);
        procedure Edit3KeyPress(Sender: TObject; var Key: Char);
        procedure ToolButton6Click(Sender: TObject);
        procedure Edit2KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit3KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_KHJB: TFRM_KHJB;
      tb : integer = 0;
    implementation
      uses DATA, MRKHJB_CX;
    {$R *.dfm}
    
    procedure TFRM_KHJB.ToolButton1Click(Sender: TObject);
    var
      i : integer;
      s : string;
    begin
      tb := 1;
      i := 1;
      with database.ADO_KHJB do
      begin
        close;
        sql.Clear;
        sql.Add('SELECT * FROM TB_CLIENT_KHJB order by khjb_id');
        open;
      end;
      s := 'KJ'+formatdatetime('yyyymm',now());
      if database.ADO_KHJB.RecordCount<1 then
      begin
        Edit1.Text := s+'00000'+inttostr(i);
      end
      else
      begin
        edit1.Clear;
        edit2.Clear;
        edit3.Clear;
        edit4.Clear;
    
        database.ADO_KHJB.Last;
        i := strtoint(copy(database.ADO_KHJB.fieldbyname('KHJB_id').AsString,9,6));
        Edit1.Text := s+formatfloat('000000',i+1);
      end;
      ToolButton2.Enabled := false;
      ToolButton4.Enabled := true;
      ToolButton5.Enabled := true;
      edit2.SetFocus;
    end;
    
    procedure TFRM_KHJB.ToolButton2Click(Sender: TObject);
    begin
      tb := 2;
      ToolButton1.Enabled := false;
      ToolButton4.Enabled := true;
      ToolButton5.Enabled := true;
      edit2.SetFocus;
    end;
    
    procedure TFRM_KHJB.ToolButton3Click(Sender: TObject);
    begin
      if (database.ADO_KHJB.FieldByName('khjb_id').AsString = '') then
      begin
        showmessage('无法删除，客户级别表已经为空。');
      end
      else
      begin
        if application.MessageBox('真的要删除该条记录吗？','提示',mb_yesno) = idyes then
        begin
          database.ADO_KHJB.Delete;
          database.ADO_KHJB.First;
          edit1.Text := database.ADO_KHJB.fieldbyname('khjb_id').AsString;
          edit2.Text := database.ADO_KHJB.fieldbyname('khjb_jbmc').AsString;
          edit3.Text := database.ADO_KHJB.fieldbyname('khjb_zdywl').AsString;
          edit4.Text := database.ADO_KHJB.fieldbyname('khjb_bz').AsString;
        end;
      end;
    end;
    
    procedure TFRM_KHJB.ToolButton4Click(Sender: TObject);
    begin
      try
      if (edit1.Text = '')or(edit2.Text = '')or(edit3.Text = '') then
      begin
        showmessage('客户级别编号、级别名称和'+#13+'该级别每月的最低业务量不能为空。');
      end
      else
      begin
        if tb = 1 then
          database.ADO_KHJB.Append;
        if tb = 2 then
          database.ADO_KHJB.Edit;
        database.ADO_KHJB.fieldbyname('khjb_id').AsString := edit1.Text;
        database.ADO_KHJB.fieldbyname('khjb_jbmc').AsString := edit2.Text;
        database.ADO_KHJB.fieldbyname('khjb_zdywl').AsString := edit3.Text;
        database.ADO_KHJB.fieldbyname('khjb_bz').AsString := edit4.Text;
        database.ADO_KHJB.Post;
        with database.ADO_KHJB do
        begin
          close;
          sql.Clear;
          sql.Add('SELECT * FROM TB_CLIENT_KHJB');
          open;
        end;
      end;
      database.ADO_KHJB.First;
      edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
      edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
      edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
      edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
      ToolButton1.Enabled := true;
      ToolButton2.Enabled := true;
      ToolButton4.Enabled := false;
      ToolButton5.Enabled := false;
      tb := 0;
      except
        showmessage('客户级别名称不能重复。');
        FRM_KHJB.ToolButton5Click(Sender);
      end;
    end;
    
    procedure TFRM_KHJB.ToolButton5Click(Sender: TObject);
    begin
      database.ADO_KHJB.Cancel;
      with database.ADO_KHJB do
      begin
        close;
        sql.Clear;
        sql.Add('SELECT * FROM TB_CLIENT_KHJB');
        open;
      end;
      database.ADO_KHJB.First;
      edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
      edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_JBmc').AsString;
      edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
      edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
      ToolButton1.Enabled := true;
      ToolButton2.Enabled := true;
      ToolButton4.Enabled := false;
      ToolButton5.Enabled := false;
    end;
    
    procedure TFRM_KHJB.ToolButton8Click(Sender: TObject);
    begin
      database.ADO_KHJB.First;
      ToolButton8.Enabled := false;
      ToolButton9.Enabled := false;
      ToolButton10.Enabled := true;
      ToolButton11.Enabled := true;
      edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
      edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
      edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
      edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
    end;
    
    procedure TFRM_KHJB.ToolButton9Click(Sender: TObject);
    begin
      database.ADO_KHJB.Prior;
    
      if not database.ADO_KHJB.Bof then
      begin
        ToolButton8.Enabled := true;
        ToolButton9.Enabled := true;
        ToolButton10.Enabled := true;
        ToolButton11.Enabled := true;
      end
      else
      begin
        ToolButton8.Enabled := false;
        ToolButton9.Enabled := false;
        ToolButton10.Enabled := true;
        ToolButton11.Enabled := true;
      end;
      edit1.Text := database.ADO_KHJB.fieldbyname('KHJB_id').AsString;
      edit2.Text := database.ADO_KHJB.fieldbyname('KHJB_jbmc').AsString;
      edit3.Text := database.ADO_KHJB.fieldbyname('KHJB_zdywl').AsString;
      edit4.Text := database.ADO_KHJB.fieldbyname('KHJB_bz').AsString;
    end;
    
    procedure TFRM_KHJB.ToolButton10Click(Sender: TObject);
    begin
      database.ADO_KHJB.N

上一篇：MRKHFK_ZCX.pas
下一篇：临床前药物安全性评价中毒性病理学新技术的应用