mrxgqx.pas

客户管理系统主要是以客户为基础

unit MRXGQX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, Buttons;

type
  TFRM_XGQX = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    DBCheckBox18: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    DBCheckBox25: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox29: TDBCheckBox;
    DBCheckBox30: TDBCheckBox;
    DBCheckBox31: TDBCheckBox;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_XGQX: TFRM_XGQX;
  i : integer;
implementation
  USES DATA, MRYHGL;
{$R *.dfm}

procedure TFRM_XGQX.FormShow(Sender: TObject);
begin
  i := 0;
  with database.ADO_user do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user where user_id='+''''+czybh+'''');
    open;
  end;
  combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;
  if combobox1.Text = '高级用户' then
  begin
    GroupBox2.Enabled := false;
  end;
  if combobox1.Text = '普通用户' then
  begin
    GroupBox2.Enabled := true;
  end;
end;

procedure TFRM_XGQX.ComboBox1Change(Sender: TObject);
begin
  if combobox1.Text = '高级用户' then
  begin
    GroupBox2.Enabled := false;
  end;
  if combobox1.Text = '普通用户' then
  begin
    GroupBox2.Enabled := true;
  end;
end;

procedure TFRM_XGQX.BitBtn1Click(Sender: TObject);
begin
  i := 1;
  BitBtn2.Enabled := true;
end;

procedure TFRM_XGQX.BitBtn2Click(Sender: TObject);
begin
  database.ADO_user.Edit;
  database.ADO_user.FieldByName('user_yhjs').AsString := trim(combobox1.Text);
  database.ADO_user.FieldByName('user_ms').AsDateTime := now();
  database.ADO_user.Post;
  BitBtn2.Enabled := false;
end;

procedure TFRM_XGQX.BitBtn3Click(Sender: TObject);
begin
  database.ADO_user.Cancel;
  close;
end;

end.