fusers.pas

进销存开发系统

unit Fusers;

interface

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

type
  TF_users = class(TF_base)
    ToolBar1: TToolBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox3: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    SpeedButton4: TSpeedButton;
    ToolButton5: TToolButton;
    SpeedButton5: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_users: TF_users;

implementation
  uses Fdm,Fzct,Fjsr;
{$R *.dfm}

procedure TF_users.FormShow(Sender: TObject);
begin
  inherited;
  F_zct.wf:=10;
  with F_dm.users do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from tb_power ');
    Open;
  end;
end;

procedure TF_users.SpeedButton3Click(Sender: TObject);
var
  order:integer;
begin
  inherited;
  for order:=1 to self.ComponentCount-1 do
  begin
    if (self.Components[order] is TCheckbox) then
      TCheckbox(self.Components[order]).Checked:=False;
  end;
  Application.CreateForm(TF_jsr, F_jsr);
  F_jsr.Caption:='内部职员选择';
  F_jsr.ShowModal;
  F_jsr.Free;
end;

procedure TF_users.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  inherited;
  if Application.MessageBox('是否退出？','提示',mb_yesno)=id_yes then
    CanClose:=True
  else
    CanClose:=False;
  F_zct.wf:=0;
end;

procedure TF_users.SpeedButton1Click(Sender: TObject);
var
  order:integer;
begin
  inherited;
  if (Trim(Edit3.Text)<>Trim(Edit4.Text)) then
  begin
    Application.MessageBox('密码不同','提示',mb_ok);
    Exit;
  end;
  if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') then
  begin
    Application.MessageBox('请输入用户全称','提示',mb_ok);
    Exit;
  end;
  with F_dm.users do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from tb_power where number='+''''+Trim(Edit1.Text)+'''');
    Open;
    if RecordCount<>0 then
    begin
      Application.MessageBox('用户已存在','提示',mb_ok);
      Close;
      SQL.Clear;
      SQL.Add('select * from tb_power ');
      Open;
      Exit;
    end;
    try
      insert;
      FieldByName('number').AsString:=Trim(Edit1.Text);
      FieldByName('users').AsString:=Trim(Edit2.Text);
      FieldByName('Password').AsString:=Trim(Edit3.Text);
      for order:=0 to self.ComponentCount-1 do
      begin
        if (self.Components[order] is TCheckbox) then
          if TCheckbox(self.Components[order]).Checked=True then
            fields[Tcheckbox(self.Components[order]).Tag].AsBoolean:=True
        else
          fields[Tcheckbox(self.Components[order]).Tag].AsBoolean:=False;
      end;
      Post;
      Application.MessageBox('保存成功','提示',MB_Ok);
    except
      Application.MessageBox('保存不成功','提示',MB_Ok);
    end;
  end;
  with F_dm.users do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from tb_power ');
    Open;
  end;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  for order:=0 to self.ComponentCount-1 do
  begin
    if (self.Components[order] is TCheckbox) then
      TCheckbox(self.Components[order]).Checked:=False;
  end;
end;

procedure TF_users.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  try
    if Application.MessageBox('是否删除此用户？','提示',mb_yesno)=id_yes then
      F_dm.users.Delete;
  except
    Application.MessageBox('删除失败或无用户','提示',mb_ok);
  end;
end;

procedure TF_users.DBGrid1CellClick(Column: TColumn);
var
  order,field:integer;
begin
  inherited;
  with F_dm.users do
  begin
    Edit1.Text:=FieldByName('number').AsString;
    Edit2.Text:=FieldByName('users').AsString;
    for order:=0 to self.ComponentCount-1 do
    begin
      if (self.Components[order] is TCheckbox) then
        TCheckbox(self.Components[order]).Checked:=False;
    end;
    for order:=0 to self.ComponentCount-1 do
    begin
      if (self.Components[order] is TCheckbox) then
        for field:=3 to 8 do
        begin
          if (fields[field].Value= True) and (Tcheckbox(self.Components[order]).Tag=field) then
            Tcheckbox(self.Components[order]).Checked:=True;
        end;
    end;
  end;
end;

procedure TF_users.SpeedButton5Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.