mryhxg.pas

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

unit MRYHXG;

interface

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

type
  TFRM_YHXG = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_YHXG: TFRM_YHXG;

implementation
  USES MRYHGL, DATA, MRXGMM, MRXGQX;
{$R *.dfm}

procedure TFRM_YHXG.Button3Click(Sender: TObject);
begin
  CLOSE;
  FRM_YHGL.ToolButton4.Enabled := false;
  FRM_YHGL.ToolButton5.Enabled := false;
  FRM_YHGL.ToolButton1.Enabled := true;
  FRM_YHGL.ToolButton2.Enabled := true;
  database.ADO_user.Cancel;
  with database.ADO_user do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;

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

procedure TFRM_YHXG.Button1Click(Sender: TObject);
begin
  application.CreateForm(TFRM_XGMM, FRM_XGMM);
  FRM_XGMM.ShowModal;
  FRM_XGMM.Free;
end;

procedure TFRM_YHXG.Button2Click(Sender: TObject);
begin
  application.CreateForm(TFRM_XGQX, FRM_XGQX);
  FRM_XGQX.ShowModal;
  FRM_XGQX.Free;
end;

procedure TFRM_YHXG.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FRM_YHGL.ToolButton4.Enabled := false;
  FRM_YHGL.ToolButton5.Enabled := false;
  FRM_YHGL.ToolButton1.Enabled := true;
  FRM_YHGL.ToolButton2.Enabled := true;
  database.ADO_user.Cancel;
  with database.ADO_user do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;

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

end.