usergl.pas

很好的药店进销存系统

unit usergl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables;

type
  Tusergl_Form = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    yhm_LEdit: TLabeledEdit;
    mm_LEdit: TLabeledEdit;
    cmdmodi: TButton;
    cmdadd: TButton;
    cmddel: TButton;
    Label1: TLabel;
    qx_CBox: TComboBox;
    procedure newll;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure cmdmodiClick(Sender: TObject);
    procedure cmdaddClick(Sender: TObject);
    procedure cmddelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  usergl_Form: Tusergl_Form;

implementation

uses main, data;

{$R *.dfm}

procedure Tusergl_Form.newll;
begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('select * from 系统用户');
    Query1.Open;
    if Query1.RecordCount>0 then
    begin
        cmdmodi.Enabled:=true;
        cmddel.Enabled:=true;
        cmdadd.Enabled:=true;
    end
    else
    begin
        cmdmodi.Enabled:=false;
        cmddel.Enabled:=false;
        cmdadd.Enabled:=true;
    end;
end;
procedure Tusergl_Form.FormShow(Sender: TObject);
begin
    newll;
end;

procedure Tusergl_Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N11.Enabled:=true;
end;

procedure Tusergl_Form.FormCreate(Sender: TObject);
begin
    Query1.SessionName:=DM_form.Database1.SessionName;
    Query1.DatabaseName:=DM_form.Database1.DatabaseName;
end;

procedure Tusergl_Form.DBGrid1CellClick(Column: TColumn);
begin
    if Query1.RecordCount>0 then
    begin
        yhm_LEdit.Text:=Query1.fieldbyname('编号').AsString;
        mm_LEdit.Text:=Query1.fieldbyname('口令').AsString;
        qx_CBox.ItemIndex:=Query1.fieldbyname('权限').AsInteger;
    end;
end;

procedure Tusergl_Form.cmdmodiClick(Sender: TObject);
var
    id,yhm,qx,mm,sqlstr:string;
begin
    yhm:=trim(yhm_LEdit.Text);
    if length(yhm)<1 then
    begin
        ShowMessage('系统用户名不能为空');
        exit;
    end;
    mm:=trim(mm_LEdit.Text);
    if length(mm)<1 then
    begin
        ShowMessage('系统用户的密码不能为空');
        exit;
    end;
    qx:=inttostr(qx_CBox.ItemIndex);
    id:=Query1.fieldbyname('id').AsString;
    sqlstr:='select * from 系统用户 where(编号='''+yhm+''')and(id<>'''+id+''')';
    with TQuery.Create(nil) do
    begin
        try
        Close;
        SessionName:=DM_form.Database1.SessionName;
        DatabaseName:=DM_form.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        if RecordCount > 0 then
        begin
            ShowMessage('修改的系统用户名有重复，请重新输入！');
            exit;
        end
        else
        begin
            sqlstr:='update 系统用户 set 编号='''+yhm+''',口令='''+mm;
            sqlstr:=sqlstr+''',权限='''+qx+''' where (id='''+id+''')';
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
        end;
        finally
        Free;
        end;
        ShowMessage('成功修改系统用户！');
        newll;
    end;
end;

procedure Tusergl_Form.cmdaddClick(Sender: TObject);
var
    id,yhm,qx,mm,sqlstr:string;
begin
    yhm:=trim(yhm_LEdit.Text);
    if length(yhm)<1 then
    begin
        ShowMessage('系统用户名不能为空');
        exit;
    end;
    mm:=trim(mm_LEdit.Text);
    if length(mm)<1 then
    begin
        ShowMessage('系统用户的密码不能为空');
        exit;
    end;
    qx:=inttostr(qx_CBox.ItemIndex);
    id:=Query1.fieldbyname('id').AsString;
    sqlstr:='select * from 系统用户 where(编号='''+yhm+''')';
    with TQuery.Create(nil) do
    begin
        try
        Close;
        SessionName:=DM_form.Database1.SessionName;
        DatabaseName:=DM_form.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        if RecordCount > 0 then
        begin
            ShowMessage('添加的系统用户名有重复，请重新输入！');
            exit;
        end
        else
        begin
            sqlstr:='insert into 系统用户(编号,口令,权限)values('''+yhm+''','''+mm+''','''+qx+''')';
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
        end;
        finally
        Free;
        end;
        ShowMessage('成功添加系统用户！');
        newll;
    end;
end;

procedure Tusergl_Form.cmddelClick(Sender: TObject);
var
    name,id:string;
begin
    try
    name:=Query1.fieldbyname('name').AsString;
    if MessageDlg('确认要删除选中的系统用户吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        id:=Query1.fieldbyname('id').AsString;
        with tquery.Create(nil) do
        begin
            try
            Close;
            DatabaseName:=DM_form.Database1.DatabaseName;
            SessionName:=DM_form.Database1.SessionName;
            SQL.Clear;
            SQL.Add('delete from 系统用户 where id='''+id+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
        ShowMessage('成功删除系统用户');
        newll;
    end;
    except
    end;
end;

end.