frmuserp.pas

二次开发模块 一、条形码的批量生成

unit FrmUserP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  DB, dxDBTLCl, dxGrClms;

type
  TFrmUser = class(TForm)
    Panel1: TPanel;
    SBAdd: TSpeedButton;
    SBDelete: TSpeedButton;
    SBKey: TSpeedButton;
    SBQuit: TSpeedButton;
    dxDBGrid1: TdxDBGrid;
    dsQryUser: TDataSource;
    dxDBGrid1cName: TdxDBGridMaskColumn;
    dxDBGrid1bVouch01: TdxDBGridCheckColumn;
    dxDBGrid1bVouch32: TdxDBGridCheckColumn;
    SBSave: TSpeedButton;
    SBCancel: TSpeedButton;
    dxDBGrid1bVouch08: TdxDBGridCheckColumn;
    dxDBGrid1bVouch09: TdxDBGridCheckColumn;
    dxDBGrid1bVouch10: TdxDBGridCheckColumn;
    dxDBGrid1bVouch11: TdxDBGridCheckColumn;
    dxDBGrid1bVouch12: TdxDBGridCheckColumn;
    dxDBGrid1bVouch18: TdxDBGridCheckColumn;
    procedure SBQuitClick(Sender: TObject);
    procedure SBAddClick(Sender: TObject);
    procedure SBDeleteClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SBKeyClick(Sender: TObject);
    procedure SBSaveClick(Sender: TObject);
    procedure SBCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmUser: TFrmUser;

implementation

uses DataDmP, FrmChangePassP;

{$R *.dfm}

procedure TFrmUser.SBQuitClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmUser.SBAddClick(Sender: TObject);
begin
   with DataDm do
     begin
      if (QryUser.State =dsEdit) or (QryUser.State =dsInsert) then
         QryUser.Post;
       QryUser.Append;
     end;
end;

procedure TFrmUser.SBDeleteClick(Sender: TObject);
Var ifDelete:Boolean;
begin
   With DataDM do
    begin
      if QryUser.RecordCount>0 then
        begin
          ifDelete:= QryUser.FieldByName('Badmin').AsBoolean;
          if not ifDelete then
            begin
              if Application.MessageBox('确定删除此用户？','信息',MB_OKCANCEL+ MB_ICONINFORMATION)= IDOK  Then
                 begin
                   QryUser.Edit;
                   QryUser.Delete;
                 end
            end
          else
            Application.MessageBox('该用户为系统管理员，系统拒绝执行!','提示信息',MB_OK+ MB_ICONINFORMATION);

        end
      else
        Application.MessageBox('数据为空,无法删除!','信息',MB_OK+ MB_ICONINFORMATION);
    end;

end;

procedure TFrmUser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{   with DataDm do
    begin
      if (QryUser.State =dsEdit) or (QryUser.State =dsInsert) then
         QryUser.Post;
    end;
}    
end;

procedure TFrmUser.SBKeyClick(Sender: TObject);
begin
  Application.CreateForm(TFrmChangePass,FrmChangePass);
  FrmChangePass.ShowModal;
  FrmChangePass.Free;
  FrmChangePass:=nil;
end;

procedure TFrmUser.SBSaveClick(Sender: TObject);
begin
  with DataDm do
    begin
      if (QryUser.State =dsEdit) or (QryUser.State =dsInsert) then
         QryUser.Post;
    end;
end;

procedure TFrmUser.SBCancelClick(Sender: TObject);
begin
  with DataDm do
    begin
      if (QryUser.State =dsEdit) or (QryUser.State =dsInsert) then
         QryUser.Cancel;
    end;
end;

end.