usyssz.pas

来自「小型企业物品管理系统,DELPHI源码+ACCESS数据库」· PAS 代码 · 共 69 行

unit Usyssz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzButton, ExtCtrls, RzSplit, Grids, DBGridEh, RzRadChk,
  StdCtrls, Mask, DBCtrlsEh, DBLookupEh, RzEdit, DB, ADODB, RzStatus,
  ActnList, DBSumLst, RzGrids, bsSkinCtrls, TeEngine, Series, TeeProcs,
  Chart, DbChart;

type
  TFsyssz = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    RzToolButton3: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzSpacer2: TRzSpacer;
    RzSpacer3: TRzSpacer;
    RzSpacer5: TRzSpacer;
    zts: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    dbcht1: TDBChart;
    Series1: TPieSeries;
    qryview_kcxx: TADOQuery;
    qryview_kcxxbwid: TAutoIncField;
    qryview_kcxxbwunit: TStringField;
    qryview_kcxxbwname: TStringField;
    qryview_kcxxkczs: TIntegerField;
    qryview_kcxxbwprice: TBCDField;
    qryview_kcxxtotal: TBCDField;
    qryview_kcxxclid: TIntegerField;
    qryview_kcxxclname: TStringField;
    procedure FormShow(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fsyssz: TFsyssz;

implementation

uses Udate, Udep, Uclass, Umain;

{$R *.dfm}







procedure TFsyssz.FormShow(Sender: TObject);
begin
  qryview_kcxx.Close;
  qryview_kcxx.Open;
end;

procedure TFsyssz.RzToolButton5Click(Sender: TObject);
begin
  close;
end;

end.