admin.pas

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

unit Admin;

interface

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

type
  TForm_Admin = class(TForm)
    BActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetNext1: TDataSetNext;
    DataSetDelete1: TDataSetDelete;
    DataSetRefresh1: TDataSetRefresh;
    DataSetInsert1: TDataSetInsert;
    DataSetEdit1: TDataSetEdit;
    Action_Locate: TAction;
    Action_Print: TAction;
    Action_Help: TAction;
    DSAdmin: TDataSource;
    ADOTAdmin: TADOQuery;
    BDBGrid: TDBGrid;
    AddBtn: TBitBtn;
    EditBtn: TBitBtn;
    DelBtn: TBitBtn;
    ExitBtn: TBitBtn;
    ADOTAdminoperid: TStringField;
    ADOTAdminopername: TStringField;
    ADOTAdminpassword: TStringField;
    ADOTAdminteam_id: TIntegerField;
    ADOT_team: TADOTable;
    ADOTAdminteam_name: TStringField;
    ADOT_teamteam_id: TIntegerField;
    ADOT_teamteam_name: TStringField;
    ADOTAdmintmp_id: TAutoIncField;
    procedure DataSetEdit1Execute(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BDBGridDblClick(Sender: TObject);
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure refreshdb;
  public
    { Public declarations }
  end;

var
  Form_Admin: TForm_Admin;

implementation

uses data,AdminEdit,sharefun,sharevar;

{$R *.dfm}

procedure TForm_Admin.refreshdb;
begin
  with ADOT_team do
  begin
    close;
    open;
  end;
  with ADOTAdmin do
  begin
      try
         close;
         sql.Clear;
         sql.Add('select * from operator');
         execsql;
         open;
      except
         MsgErr(handle,'刷新数据库失败（operator_Q）！');
      end;
  end;
end;

procedure TForm_Admin.DataSetEdit1Execute(Sender: TObject);
begin  
  Form_AdminEdit:=TForm_AdminEdit.Create(Application);
  ADOTAdmin.Edit;
  Form_AdminEdit.ShowModal;
  refreshdb;
end;

procedure TForm_Admin.DataSetDelete1Execute(Sender: TObject);
var
tmpstr:string;
begin
  tmpstr:=trim(ADOTAdmin.FieldValues['operid']);
  if tmpstr=trim(curAdmin.user_id) then
  begin
        MsgErr(handle,'当前操作员正在使用该账号，删除失败！');
        exit;
  end;
  if MsgQst(handle,'确认删除当前账户['+tmpstr+']吗？')=IDYES then
  begin
    try
      ADOTAdmin.Delete;
    except
      MSgerr(handle,'相关表中用到，删除失败！');
      exit;
    end;
  end;
  refreshdb;
end;


procedure TForm_Admin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOT_team.Close;
  ADOTAdmin.Close;
  Action:=caFree;
end;

procedure TForm_Admin.BDBGridDblClick(Sender: TObject);
begin
  DataSetEdit1Execute(AddBtn);
end;

procedure TForm_Admin.DataSetInsert1Execute(Sender: TObject);
begin
  Form_AdminEdit:=TForm_AdminEdit.Create(Application);
  ADOTadmin.Append;
  Form_AdminEdit.ShowModal;
end;

procedure TForm_Admin.FormCreate(Sender: TObject);
begin
  refreshdb;
end;

end.