dfm_tray.pas

来自「仓库管理系统 仓库管理系统」· PAS 代码 · 共 91 行

unit dfm_tray;

interface

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

type
  Tdfmtray = class(TForm)
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    delbtn: TBitBtn;
    quitbtn: TBitBtn;
    dstray: TDataSource;
    tblttray: TADOTable;
    tblttrayctm: TDateTimeField;
    tblttraycitem: TWideStringField;
    tblttraycworkerid: TWideStringField;
    tblttraycname: TWideStringField;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    DBGridEh1: TDBGridEh;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure delbtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmtray: Tdfmtray;

implementation

uses  dbmRainbowMis, dfm_seldate, chHeadUnit;

{$R *.DFM}

procedure Tdfmtray.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  tblttray.active:=false;
  action:=cafree;
end;

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

procedure Tdfmtray.FormCreate(Sender: TObject);
begin
  tblttray.active:=true;
end;

procedure Tdfmtray.delbtnClick(Sender: TObject);
begin
  ADOQuery1.First ;
  while not ADOQuery1.Eof do
  begin
    if not adoquery1.eof then
      if not adoquery1.Eof then
        ADOQuery1.Delete;
//    ADOQuery1.Next;
  end;
  ADOQuery1.Close;
  ADOQuery1.Open;
end;

procedure Tdfmtray.BitBtn1Click(Sender: TObject);
begin
//SELECT t_systray.ctm, t_systray.citem, t_systray.cworkerid, t_systray.cname
//FROM t_systray;
    If  Application.FindComponent('dfmseldate')=Nil Then
    dfmseldate:=Tdfmseldate.Create(Application);
  dfmseldate.Show;
end;

procedure Tdfmtray.DBGridEh1TitleClick(Column: TColumnEh);
begin
  chHeadUnit.ehtitclick(column); 
end;

end.