edituserunit.pas

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

unit EditUserUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, ADODB, Mask, DBCtrls;

type
  TEditUserForm = class(TForm)
    Panel1: TPanel;
    Panel_button: TPanel;
    Bevel_button: TBevel;
    OKBtn: TButton;
    CancelBtn: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    E_name: TEdit;
    E_SEX: TEdit;
    E_PASSWORD: TEdit;
    E_memo: TEdit;
    C_Rights: TComboBox;
    ADOQuery_data: TADOQuery;
    ADOCommand_data: TADOCommand;
    E_ID: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure E_SEXDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    P_state: integer;
    { Public declarations }
  end;

var
  EditUserForm: TEditUserForm;

implementation
uses FunctionUnit, DMUnit;
{$R *.dfm}

procedure TEditUserForm.FormCreate(Sender: TObject);
begin
        self.Caption := '操作员信息';
        adoquery_data.Connection:=DM.ADOCon;
        ADOCommand_data.Connection:=DM.ADOCon;

end;

procedure TEditUserForm.OKBtnClick(Sender: TObject);
begin
  if trim(E_name.Text) = '' then
  begin
    messagedlg(Errormsg0002, mtError, [mbok], 0);
    E_name.SetFocus;
    exit;
  end;
  if trim(E_ID.Text) = '' then
  begin
    messagedlg(Errormsg0002, mtError, [mbok], 0);
    E_id.SetFocus;
    exit;
  end;
  ////////////////////
        with ADOCommand_data do
                begin
                        CommandText:='';
                        CommandText:='insert into SysUser (ID,用户名,密码) values ('''+E_ID.Text+''','''+E_name.Text+''','''+E_password.Text+''')';

                        try
                                Prepared := true;
                                Execute;
                        except
                                messagedlg(Errormsg0004, mtError, [mbok], 0);
                                close;
                        end;
                end;
  
end;

procedure TEditUserForm.E_SEXDblClick(Sender: TObject);
begin
  if E_sex.Text = '男' then
    E_sex.Text := '女'
  else
    E_sex.Text := '男';
end;

procedure TEditUserForm.FormShow(Sender: TObject);
begin
  if P_state = 1 then
  begin
    E_id.ReadOnly := true;
  end
  else
    E_id.ReadOnly := false;
end;


procedure TEditUserForm.CancelBtnClick(Sender: TObject);
begin
  Self.Close;
end;

end.