online.pas

一个很不错的仓库管理系统,能容进各种软件中去,

unit Online;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TEMPLETFORM, LabelButton, HemisphereButton, Grids, DBGrids,
  ComCtrls, Menus, ToolWin, StdCtrls, ExtCtrls, DBActns, ActnList;

type
  TOnlineForm = class(TMyForm)
    StatusBar1: TStatusBar;
    dbgOnline: TDBGrid;
    Panel1: TPanel;
    hbtnUpline: THemiBtn;
    hbtnDownLine: THemiBtn;
    hbtnDownLineAll: THemiBtn;
    ActionList1: TActionList;
    DataSetUpLine: TDataSetInsert;
    DataSetDownLine: TDataSetDelete;
    DataSetDownAll: TDataSetDelete;
    HemiBtn1: THemiBtn;
    Timer1: TTimer;
    HemiBtn2: THemiBtn;
    procedure FormCreate(Sender: TObject);
    procedure DataSetUpLineExecute(Sender: TObject);
    procedure DataSetDownLineExecute(Sender: TObject);
    procedure HemiBtn1Click(Sender: TObject);
    procedure DataSetDownAllExecute(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    AllNum:integer;
    procedure RefreshNum;
  end;

var
  OnlineForm: TOnlineForm;

implementation

uses data, InputNo, OnlineNote;

{$R *.dfm}

procedure TOnlineForm.FormCreate(Sender: TObject);
begin
  inherited;
  Statusbar1.Panels[6].Text := CopyRight;
  DM.ADOQCurOnline.Active :=true;
  RefreshNum;
end;

procedure TOnlineForm.DataSetUpLineExecute(Sender: TObject);
begin
  inherited;
  InputNoForm:=TInputNoForm.Create(Application);
  if InputNoForm.ShowModal=mrOK then
  begin
    DM.ADOQCurOnline.Active :=false;
    DM.ADOQCurOnline.Active :=true;
    RefreshNum;
  end;
end;

procedure TOnlineForm.DataSetDownLineExecute(Sender: TObject);
begin
  inherited;
  if DM.ADOQCurOnline.RecNo >0 then
    if DM.DownLine(DM.ADOQCurOnline.FieldValues['卡号'],date,time) then
    begin
      Showmessage('下机成功');
      DM.ADOQCurOnline.Active :=false;
      DM.ADOQCurOnline.Active :=true;
      RefreshNum;
    end;
end;

procedure TOnlineForm.HemiBtn1Click(Sender: TObject);
begin
  inherited;
  OnlineNoteForm:=TOnlineNoteForm.Create(Application);
  OnlineNoteForm.ShowModal;
end;

procedure TOnlineForm.DataSetDownAllExecute(Sender: TObject);
begin
  inherited;
  if DM.ADOQCurOnline.RecNo >0 then
    if DM.DownLineAll(Date, Time)then
      RefreshNum;
end;
procedure TOnlineForm.FormResize(Sender: TObject);
begin
  inherited;
  Statusbar1.Panels[0].Width :=palClient.Width -490;
end;

procedure TOnlineForm.RefreshNum;
begin
  AllNum:=DM.ADOQCurOnline.RecordCount;
  Statusbar1.Panels[2].Text :=IntToStr(AllNum)+ '人';
end;

procedure TOnlineForm.Timer1Timer(Sender: TObject);
begin
  inherited;
  Statusbar1.Panels[4].Text :=DateTimeToStr(now);
end;

end.