user.pas

一款不错的商务程序商品管理系统,有简易的窗体皮肤

unit User;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, ToolWin, DB, ADODB, StdCtrls,Theme;

type
  TFrm_User = class(TBaseForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    DBGrid1: TDBGrid;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ADOUser: TADODataSet;
    DSUser: TDataSource;
    ADOUserMR_ID: TAutoIncField;
    ADOUserMR_Name: TStringField;
    ADOUserMR_Pwd: TStringField;
    ADOUserMR_Dept: TStringField;
    ADOUserMR_Login: TStringField;
    ADOUserMR_Memo: TStringField;
    ADOUserMR_Group: TStringField;
    ToolButton4: TToolButton;
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
    procedure GetGroup;
  public
    { Public declarations }
  end;

var
  Frm_User: TFrm_User;

implementation
uses Main,UserEdit, DM;
{$R *.dfm}

procedure TFrm_User.FormShow(Sender: TObject);
begin
  ADOUser.Close;
  ADOUser.Open;
  GetGroup;
end;

procedure TFrm_User.GetGroup;
var
  ADOQ:TADODataSet;
  i:Integer;
begin
  ADOQ:=TADODataSet.Create(nil);
  ADOQ.Connection:=FDM.ADOConnection1;
  ADOQ.CommandText:='Select Distinct MR_Name From MR_Popedom_Tab';
  ADOQ.Active:=True;
  with DBGrid1.Columns[3] do
  begin
    PickList.BeginUpdate;
    for i:=0 to ADOQ.RecordCount-1 do
    begin
      PickList.Add(ADOQ.Fields[0].AsString);
      ADOQ.Next;
    end;
    PickList.EndUpdate;
  end;
end;

procedure TFrm_User.ToolButton1Click(Sender: TObject);
begin
  ADOUser.Append;
  Frm_UserEdit.ShowModal;
end;

procedure TFrm_User.ToolButton2Click(Sender: TObject);
begin
if Application.MessageBox('您确定要删除此记录吗?', '明日科技', MB_OKCANCEL) = IDOK then
begin
  ADOUser.Delete;
  ADOUser.UpdateBatch;
end;

end;

procedure TFrm_User.ToolButton4Click(Sender: TObject);
begin
  ADOUser.Edit;
  Frm_UserEdit.ShowModal;
end;

procedure TFrm_User.ToolButton5Click(Sender: TObject);
begin
  Close;
end;

end.