userset_unit.pas

来自「药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK」· PAS 代码 · 共 95 行

unit UserSet_Unit;

interface

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

type
  TfrmUserSet = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtLogName: TDBEdit;
    edtRemark: TDBMemo;
    txtLoginID: TDBText;
    edtPassword: TDBEdit;
    btnSave: TBitBtn;
    btnDelete: TBitBtn;
    btnModify: TBitBtn;
    btnAdd: TBitBtn;
    dsrUser: TDataSource;
    qryUser: TADOQuery;
    procedure btnAddClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserSet: TfrmUserSet;

implementation

uses Common_Unit, LeechdomMain_Unit;

{$R *.dfm}

procedure TfrmUserSet.FormShow(Sender: TObject);
begin
  OpenDataSQL(qryUser, 'Select * From [User]');
end;

procedure TfrmUserSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmUserSet := nil;
end;

procedure TfrmUserSet.btnAddClick(Sender: TObject);
var
  SQLMaxID, MaxID, LoginID: string;
begin
  qryUser.Insert;
  LoginID := '1000';
  SQLMaxID := 'Exec proc_Base @Flag=''Select_LoginID_Max''' + ',@LoginID=' + Quotedstr(LoginID); //调用存储过程
  OpenDataSQL(frmLeechdomMain.qryMaxID, SQLMaxID);
  //执行SQL语句的过程
  MaxID := frmLeechdomMain.qryMaxID.FieldByName('LoginID').AsString;
  txtLoginID.Caption := MaxID;
  qryUser.FieldByName('LoginID').AsString := MaxID;
end;

procedure TfrmUserSet.btnModifyClick(Sender: TObject);
begin
  qryUser.Edit;
end;

procedure TfrmUserSet.btnDeleteClick(Sender: TObject);
begin
  if Application.MessageBox('确定要删除此条记录吗?','提示',68) = IDNo then
    Exit;
  qryUser.Delete;
  qryUser.UpdateBatch;
end;

procedure TfrmUserSet.btnSaveClick(Sender: TObject);
begin
  if qryUser.State in [dsInsert,dsEdit] then
    qryUser.UpdateBatch;
end;

end.