mrkhjb.pas

功能强大,画面精致.是一款不可多得的客户管理系统acess数据库,用户名:yuansheng 密码:yuansheng 级别:高级用户 建议在xp系统下运行。

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;
    Label4: TLabel;
    Edit4: TEdit;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    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.Next;
  if not database.ADO_KHJB.Eof then
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end
  else
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := false;
    ToolButton11.Enabled := false;
  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.ToolButton11Click(Sender: TObject);
begin
  database.ADO_KHJB.Last;
  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;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := false;
  ToolButton11.Enabled := false;
end;

procedure TFRM_KHJB.FormShow(Sender: TObject);
var
  ini : Tinifile;
  ssp : string;
begin
  ssp := '客户级别设置';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  with database.ADO_KHJB do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM TB_CLIENT_KHJB order by khjb_id');
    open;
  end;
  if database.ADO_KHJB.RecordCount>0 then
  begin
    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
  else
  begin
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
  end;
end;

procedure TFRM_KHJB.DBGrid1CellClick(Column: TColumn);
begin
  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.ToolButton13Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_KHJB.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in ['a'..'z','A'..'Z']) then
    key := #0;
end;

procedure TFRM_KHJB.ToolButton6Click(Sender: TObject);
begin
  ToolButton5.Enabled := true;
  application.CreateForm(TFRM_KHJB_CX, FRM_KHJB_CX);
  FRM_KHJB_CX.ShowModal;
  FRM_KHJB_CX.Free;
end;

procedure TFRM_KHJB.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit2.Text <> '') then
    edit3.SetFocus;
end;

procedure TFRM_KHJB.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit3.Text <> '') then
    edit4.SetFocus;
end;

procedure TFRM_KHJB.FormCreate(Sender: TObject);
begin
  database.ADO_KHJB.Active := false;
  database.ADO_KHJB.Active := true;
end;

end.