dfm_userinfo.pas

仓库管理系统 仓库管理系统

unit dfm_userinfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, DBCtrls, Mask, ExtCtrls, Db, DBTables;

type
  Tdfmuserinfo = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label7: TLabel;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    Label6: TLabel;
    DBComboBox2: TDBComboBox;
    BitBtn_add: TBitBtn;
    BitBtn_del: TBitBtn;
    BitBtn_edit: TBitBtn;
    BitBtn_ok: TBitBtn;
    BitBtn_cancel: TBitBtn;
    DBComboBox1: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn_addClick(Sender: TObject);
    procedure BitBtn_delClick(Sender: TObject);
    procedure BitBtn_editClick(Sender: TObject);
    procedure BitBtn_okClick(Sender: TObject);
    procedure BitBtn_cancelClick(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
  private
    { Private declarations }
    procedure tblstachange;
  public
    { Public declarations }
  end;

var
  dfmuserinfo: Tdfmuserinfo;

implementation

uses dfm_team;

{$R *.DFM}

procedure Tdfmuserinfo.tblstachange;
begin
    case dfmteam.table1.State of
      dsbrowse:
        begin
          panel1.Enabled :=false;
          BitBtn_add.Enabled :=true;
          BitBtn_del.Enabled :=true;
          BitBtn_edit.Enabled :=true;
          BitBtn_ok.Enabled :=false;
          BitBtn_cancel.Enabled :=false;
        end;
      dsinsert:
        begin
          panel1.Enabled :=true;
          BitBtn_add.Enabled :=false;
          BitBtn_del.Enabled :=false;
          BitBtn_edit.Enabled :=false;
          BitBtn_ok.Enabled :=true;
          BitBtn_cancel.Enabled :=true;
        end;
      dsedit:
        begin
          panel1.Enabled :=true;
          BitBtn_add.Enabled :=false;
          BitBtn_del.Enabled :=false;
          BitBtn_edit.Enabled :=false;
          BitBtn_ok.Enabled :=true;
          BitBtn_cancel.Enabled :=true;
        end;
    end;
end;

procedure Tdfmuserinfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tdfmuserinfo.FormCreate(Sender: TObject);
begin
  dfmteam.tbltworker.first;
  dbcombobox1.Items.Clear ;
  while not dfmteam.tbltworker.eof do
  begin
    dbcombobox1.Items.Add(dfmteam.tbltworker.fieldbyname('Fname').asstring);
    dfmteam.tbltworker.next;
  end;
  dbcombobox1.Text :=dfmteam.Table1.fieldbyname('cuser').asstring;
  dbedit1.text:=dfmteam.Table1.fieldbyname('cworkerid').asstring;
  dfmteam.tbltrole.first;
  dbcombobox2.Items.Clear ;
  while not dfmteam.tbltrole.eof do
  begin
    dbcombobox2.Items.Add(dfmteam.tbltrole.fieldbyname('croleid').asstring);
    dfmteam.tbltrole.next;
  end;
  tblstachange;
//  dbedit1.SetFocus ;
end;

procedure Tdfmuserinfo.BitBtn_addClick(Sender: TObject);
begin
  dfmteam.table1.append;
  tblstachange;
end;

procedure Tdfmuserinfo.BitBtn_delClick(Sender: TObject);
begin
  dfmteam.table1.delete;
  tblstachange;
  dfmteam.showlistview2;
end;

procedure Tdfmuserinfo.BitBtn_editClick(Sender: TObject);
begin
  dfmteam.table1.edit;
  tblstachange;
end;

procedure Tdfmuserinfo.BitBtn_okClick(Sender: TObject);
begin
  dfmteam.table1.post;
  tblstachange;
  dfmteam.showlistview2;
  self.close;
end;

procedure Tdfmuserinfo.BitBtn_cancelClick(Sender: TObject);
begin
  dfmteam.table1.cancel;
  tblstachange;  
end;

procedure Tdfmuserinfo.DBComboBox1Change(Sender: TObject);
begin
  if dfmteam.tbltworker.locate('Fname',dbcombobox1.text,[loPartialKey]) then
    dbedit1.text:=dfmteam.tbltworker.fieldbyname('freno').asstring;
end;

end.