mrlxrxx.pas

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

unit MRLXRXX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ImgList, Grids, DBGrids, StdCtrls, DBCtrls, Mask, ComCtrls,
  ToolWin, ExtCtrls, inifiles, DateUtils;

type
  TFRM_LXRXX = 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;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Memo1: TMemo;
    Label13: TLabel;
    Label14: TLabel;
    Edit11: TEdit;
    DateTimePicker2: TDateTimePicker;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ImageList2: TImageList;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_LXRXX: TFRM_LXRXX;
  tb : integer;
implementation
  USES DATA, MRLXRXX_CX;
{$R *.dfm}

procedure TFRM_LXRXX.ToolButton1Click(Sender: TObject);
var
   s : string;
   i : integer;
begin
  if PageControl1.ActivePage = tabsheet1 then
  begin
    i := 1;
    ToolButton4.Enabled := true;
    ToolButton5.Enabled := true;
    ToolButton2.Enabled := false;
    TabSheet1.Enabled := true;
    tb := 1;
    with database.ADO_LXRXX do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_Client_lxrxx order by lxrxx_id');
      open;
    end;
    s := 'LX'+formatdatetime('yyyymm',now());
    if database.ADO_LXRXX.RecordCount<1 then
    begin
      edit1.Text := s+'00000'+inttostr(i);
    end
    else
    begin
      database.ADO_LXRXX.Last;
      i := strtoint(copy(database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString,9,6));
      edit1.Text := s+formatfloat('000000',i+1);
    end;

    combobox2.Text := '';
    edit3.Clear;
    combobox1.Text := '';
    edit5.Clear;
    edit6.Clear;
    edit7.Clear;
    edit8.Clear;
    edit9.Clear;
    edit10.Clear;
    edit11.Clear;
    DateTimePicker1.Date := now();
    DateTimePicker2.Date := now();
    memo1.Clear;
  
    combobox2.SetFocus;
  end;
end;

procedure TFRM_LXRXX.ToolButton5Click(Sender: TObject);
begin
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  TabSheet1.Enabled := false;
  database.ADO_LXRXX.Cancel;
  with database.ADO_LXRXX do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_Client_lxrxx');
    open;
  end;

  edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
  combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
  edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
  combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
  edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
  edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
  edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
  edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
  edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
  edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
  edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
  memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
  if database.ADO_LXRXX.RecordCount<1 then
  begin
    DateTimePicker1.Date := now();
    DateTimePicker2.Date := now();
  end
  else
  begin
    DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
    DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;
  end;
  tb := 0;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  
end;

procedure TFRM_LXRXX.ToolButton2Click(Sender: TObject);
begin
  ToolButton4.Enabled := true;
  ToolButton5.Enabled := true;
  ToolButton1.Enabled := false;
  TabSheet1.Enabled := true;
  tb := 2;
end;

procedure TFRM_LXRXX.ToolButton4Click(Sender: TObject);
begin
  if (edit1.Text = '')or(combobox2.Text = '')or(edit3.Text = '')
     or(combobox1.Text = '')or(edit7.Text = '') then
  begin
    showmessage('联系人编号、企业名称、联系人姓名、'+#13+'出生年月和联系人职位不能为空。');
  end
  else
  begin
    if tb = 1 then
      database.ADO_LXRXX.Append;
    if tb = 2 then
      database.ADO_LXRXX.Edit;
    database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString := trim(edit1.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString:= trim(combobox2.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString := trim(edit3.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString := trim(combobox1.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString := trim(edit5.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString := trim(edit6.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString := trim(edit7.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString := trim(edit8.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString := trim(edit9.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString := trim(edit10.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString := trim(edit11.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString := trim(memo1.Text);
    database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime := DateTimePicker1.Date;
    database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime := DateTimePicker2.Date;
    database.ADO_LXRXX.Post;
    with database.ADO_LXRXX do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM TB_CLIENT_LXRXX');
      open;
    end;
  end;
  database.ADO_LXRXX.First;
  edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
  combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
  edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
  combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
  edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
  edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
  edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
  edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
  edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
  edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
  edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
  DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
  DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;

  tb := 0;
end;

procedure TFRM_LXRXX.ToolButton3Click(Sender: TObject);
begin
  if (database.ADO_LXRXX.FieldByName('lxrxx_id').AsString = '') then
  begin
    showmessage('无法删除，客户级别表已经为空。');
  end
  else
  begin
    if application.MessageBox('真的要删除该条记录吗？','提示',mb_yesno) = idyes then
    begin
      database.ADO_LXRXX.Delete;
      database.ADO_LXRXX.First;
      edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
      combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
      edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
      combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
      edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
      edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
      edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
      edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
      edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
      edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
      edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
      memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
      with database.ADO_LXRXX do
      begin
        close;
        sql.Clear;
        sql.Add('SELECT * FROM TB_CLIENT_LXRXX');
        open;
      end;
      if database.ADO_LXRXX.RecordCount<1 then
      begin
        DateTimePicker1.Date := now();
        DateTimePicker2.Date := now();
      end
      else
      begin
        DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
        DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;
      end;
      ToolButton8.Enabled := true;
      ToolButton9.Enabled := true;
      ToolButton10.Enabled := true;
      ToolButton11.Enabled := true;

    end;
  end;

end;

procedure TFRM_LXRXX.ToolButton8Click(Sender: TObject);
begin
  database.ADO_LXRXX.First;
  ToolButton8.Enabled := false;
  ToolButton9.Enabled := false;