dfm_extend.pas

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

unit dfm_extend;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBTables, Mask,
  DBCtrls, ADODB, DBCtrlsEh;

type
  Tdfmextend = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    postbtn: TBitBtn;
    DataSource1: TDataSource;
    Atblspec: TADOTable;
    DataSource2: TDataSource;
    Atbllabel: TADOTable;
    DBGrid2: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label11: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    atblextend: TADOTable;
    DataSource3: TDataSource;
    deletebtn: TBitBtn;
    insertbtn: TBitBtn;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    cancelbtn: TBitBtn;
    atblextendcstyle: TWideStringField;
    atblextendcesj: TBCDField;
    atblextendcezl: TFloatField;
    atblextendclabel: TWideStringField;
    atblextendcsdate: TDateTimeField;
    atblextendcedate: TDateTimeField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure delbtnClick(Sender: TObject);
    procedure postbtnClick(Sender: TObject);
    procedure cancelbtnClick(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure DBComboBox1Enter(Sender: TObject);
    procedure DBComboBox2Enter(Sender: TObject);
    procedure DataSource3StateChange(Sender: TObject);
    procedure insertbtnClick(Sender: TObject);
    procedure deletebtnClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmextend: Tdfmextend;

implementation

uses  dbmRainbowMis, chHeadUnit;

{$R *.DFM}

procedure Tdfmextend.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Atblspec.active:=false;
  atblextend.Active :=false;
  Atbllabel.Active :=false;
  action:=cafree;
end;

procedure Tdfmextend.quitbtnClick(Sender: TObject);
begin
  close;
end;

procedure Tdfmextend.FormCreate(Sender: TObject);
begin
  Atblspec.active:=true;
  atblextend.Active :=true;
  Atbllabel.Active :=true;
end;

procedure Tdfmextend.delbtnClick(Sender: TObject);
begin
//  atbldefault.delete;
end;

procedure Tdfmextend.postbtnClick(Sender: TObject);
begin
  atblextend.Post;
{  atblextend['clabel']:=combobox1.Text;
  atblextend['cstyle']:=combobox2.Text;
  atblextend['csdate']:=datetimepicker1.date;
  atblextend['cedate']:=datetimepicker2.date;
  atblextend['cesj']:=strtofloat(trim(maskedit1.Text));
  atblextend['cezl']:=strtofloat(trim(maskedit2.Text));
  atblextend.Post;
  combobox2.Text :='';
  BitBtn2.SetFocus ; }
//  atbldefault.post;
end;

procedure Tdfmextend.cancelbtnClick(Sender: TObject);
begin
  atblextend.Cancel;
end;

procedure Tdfmextend.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  resize:=false;
end;

procedure Tdfmextend.DBComboBox1Enter(Sender: TObject);
begin
  chHeadUnit.dblist(dbcombobox1,Atbllabel,'clabel','cfactory',1) ;
end;

procedure Tdfmextend.DBComboBox2Enter(Sender: TObject);
begin
  chHeadUnit.dblist(dbcombobox2,Atblspec,'cstyle','cname',1) ;
end;

procedure Tdfmextend.DataSource3StateChange(Sender: TObject);
begin
  case atblextend.State of
    dsbrowse:
    begin
      insertbtn.Enabled :=true;
      deletebtn.Enabled :=true;
      postbtn.Enabled :=false;
      cancelbtn.Enabled :=false;
    end;
    dsinsert:
    begin
      insertbtn.Enabled :=false;
      deletebtn.Enabled :=false;
      postbtn.Enabled :=true;
      cancelbtn.Enabled :=true;
    end;
    dsedit:
    begin
      insertbtn.Enabled :=false;
      deletebtn.Enabled :=false;
      postbtn.Enabled :=true;
      cancelbtn.Enabled :=true;
    end;
  end;
end;

procedure Tdfmextend.insertbtnClick(Sender: TObject);
begin
  atblextend.Insert;
end;

procedure Tdfmextend.deletebtnClick(Sender: TObject);
begin
  atblextend.Delete;
end;

procedure Tdfmextend.FormKeyPress(Sender: TObject; var Key: Char);
begin
  chHeadUnit.tabventer(dfmextend,key); 
end;

end.