⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mryhgl.pas

📁 客户管理系统主要是以客户为基础
💻 PAS
字号:
🔍 
unit MRYHGL;

interface

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

type
  TFRM_YHGL = 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;
    ImageList1: TImageList;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    ToolButton14: TToolButton;
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_YHGL: TFRM_YHGL;
  tb : integer;
  czybh : string;
implementation
  uses DATA, MRYHXG, MRYHGL_CX, MRXGMM, MRXGQX;
{$R *.dfm}

procedure TFRM_YHGL.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_user do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;
  if database.ADO_user.RecordCount>0 then
  begin
    edit1.Text := database.ADO_user.fieldbyname('user_id').AsString;
    edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
    edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
    combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;
  end
  else
  begin
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    combobox1.Text := '';

  end;
end;

procedure TFRM_YHGL.ToolButton1Click(Sender: TObject);
var
   s : string;
   i : integer;
begin
    edit2.Enabled := true;
    edit3.Enabled := true;
    combobox1.Enabled := true;
    i := 1;
    ToolButton4.Enabled := true;
    ToolButton5.Enabled := true;
    ToolButton2.Enabled := false;
    TabSheet1.Enabled := true;
    tb := 1;
    with database.ADO_user do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_user order by user_id');
      open;
    end;
    s := 'CY'+formatdatetime('yyyymm',now());
    if database.ADO_user.RecordCount<1 then
    begin
      edit1.Text := s+'00000'+inttostr(i);
    end
    else
    begin
      database.ADO_user.Last;
      i := strtoint(copy(database.ADO_user.fieldbyname('user_id').AsString,9,6));
      edit1.Text := s+formatfloat('000000',i+1);
    end;

    edit2.Clear;
    edit3.Clear;
    combobox1.Text := '';
    edit2.SetFocus;


end;

procedure TFRM_YHGL.ToolButton2Click(Sender: TObject);
begin
  //ToolButton6.Enabled := true;
  //TabSheet1.Enabled := true;
  czybh := database.ADO_user.fieldbyname('user_id').AsString;
  application.CreateForm(TFRM_XGMM, FRM_XGMM);
  FRM_XGMM.ShowModal;
  FRM_XGMM.Free;
end;

procedure TFRM_YHGL.ToolButton3Click(Sender: TObject);
var
  yi : integer;
  ssp : string;
begin
  yi := 1;
  if (database.ADO_user.FieldByName('user_id').AsString = '') then
  begin
    showmessage('无法删除，操作员表已经为空。');
  end
  else
  begin
    if application.MessageBox('真的要删除该条记录吗？','提示',mb_yesno) = idyes then
    begin
      database.ADO_user.Delete;
      database.ADO_user.First;
      edit1.Text := database.ADO_user.fieldbyname('user_id').AsString;
      edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
      edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
      combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;
      ToolButton8.Enabled := true;
      ToolButton9.Enabled := true;
      ToolButton10.Enabled := true;
      ToolButton11.Enabled := true;
      if (database.ADO_user.FieldByName('user_id').AsString = '') then
      begin
         database.ADO_user.Insert;
         database.ADO_user.FieldByName('user_id').AsString := 'CY'+formatdatetime('yyyymm',now())+'000001';
         database.ADO_user.FieldByName('user_name').AsString := 'mingrisoft';
         database.ADO_user.FieldByName('user_mm').AsString := 'www.mingrisoft.com';
         database.ADO_user.FieldByName('user_yhjs').AsString := '高级用户';
         database.ADO_user.FieldByName('user_ms').AsDateTime := now();
         while yi>0 do
         begin
           ssp := inttostr(yi);
           database.ADO_user.FieldByName(ssp).AsVariant := true;
           yi := yi+1;
           if yi = 32 then
             break;
         end;
         database.ADO_user.Post;
      end;
    end;
  end;

end;

procedure TFRM_YHGL.ToolButton4Click(Sender: TObject);
var
   yi : integer;
   ssp : string;
begin
  yi := 1;
  if (edit1.Text = '')or(edit2.Text = '')or(edit3.Text = '')
     or(combobox1.Text = '') then
  begin
    showmessage('操作员编号、操作员名称、密码、'+#13+'操作员级别不能为空。');
  end
  else
  begin
    if tb = 1 then
      database.ADO_user.Append;
    if tb = 2 then
      database.ADO_user.Edit;
    database.ADO_user.fieldbyname('user_id').AsString := trim(edit1.Text);
    database.ADO_user.fieldbyname('user_name').AsString:= trim(edit2.Text);
    database.ADO_user.fieldbyname('user_mm').AsString := trim(edit3.Text);
    database.ADO_user.fieldbyname('user_yhjs').AsString := trim(combobox1.Text);
    database.ADO_user.fieldbyname('user_ms').AsDateTime := date();

    if combobox1.Text = '普通用户' then
    begin
     while yi>0 do
     begin
       ssp := inttostr(yi);
       database.ADO_user.FieldByName(ssp).AsVariant := false;
       yi := yi+1;
       if yi = 32 then
         break;
     end;
    end;
    if combobox1.Text = '高级用户' then
    begin
     while yi>0 do
     begin
       ssp := inttostr(yi);
       database.ADO_user.FieldByName(ssp).AsVariant := true;
       yi := yi+1;
       if yi = 32 then
         break;
     end;
    end;
    database.ADO_user.Post;
    with database.ADO_user do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM TB_user');
      open;
    end;
  end;
  database.ADO_user.First;
  edit1.Text := database.ADO_user.fieldbyname('user_id').AsString;
  edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
  edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
  combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit2.Enabled := false;
  edit3.Enabled := false;
  combobox1.Enabled := false;
  tb := 0;
end;

procedure TFRM_YHGL.ToolButton5Click(Sender: TObject);
begin
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;

  database.ADO_user.Cancel;
  with database.ADO_user do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;

  edit1.Text := database.ADO_user.fieldbyname('user_id').AsString;
  edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
  edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
  combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;
  tb := 0;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit2.Enabled := false;
  edit3.Enabled := false;
  combobox1.Enabled := false;
end;

procedure TFRM_YHGL.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text := database.ADO_user.fieldbyname('user_id').AsString;
  edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
  edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
  combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;

end;

procedure TFRM_YHGL.ToolButton13Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_YHGL.ToolButton8Click(Sender: TObject);
begin
  database.ADO_user.First;
  ToolButton8.Enabled := false;
  ToolButton9.Enabled := false;
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit1.Text := database.ADO_user.fieldbyname('user_id').AsString;
  edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
  edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
  combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;

end;

procedure TFRM_YHGL.ToolButton9Click(Sender: TObject);
begin
  database.ADO_user.Prior;
  if not database.ADO_user.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_user.fieldbyname('user_id').AsString;
  edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
  edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
  combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;

end;

procedure TFRM_YHGL.ToolButton10Click(Sender: TObject);
begin
  database.ADO_user.Next;
  if not database.ADO_user.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_user.fieldbyname('user_id').AsString;
  edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
  edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
  combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;

end;

procedure TFRM_YHGL.ToolButton11Click(Sender: TObject);
begin
  database.ADO_user.Last;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := false;
  ToolButton11.Enabled := false;
  edit1.Text := database.ADO_user.fieldbyname('user_id').AsString;
  edit2.Text := database.ADO_user.fieldbyname('user_name').AsString;
  edit3.Text := database.ADO_user.fieldbyname('user_mm').AsString;
  combobox1.Text := database.ADO_user.fieldbyname('user_yhjs').AsString;
end;

procedure TFRM_YHGL.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit3.SetFocus;
end;

procedure TFRM_YHGL.ToolButton6Click(Sender: TObject);
begin
  ToolButton5.Enabled := true;
  application.CreateForm(TFRM_YHGL_CX, FRM_YHGL_CX);
  FRM_YHGL_CX.ShowModal;
  FRM_YHGL_CX.Free;
end;

procedure TFRM_YHGL.ToolButton14Click(Sender: TObject);
begin
  ToolButton6.Enabled := true;
  czybh := database.ADO_user.fieldbyname('user_id').AsString;
  application.CreateForm(TFRM_XGQX, FRM_XGQX);
  FRM_XGQX.ShowModal;
  FRM_XGQX.Free;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -