usyssz.pas

该软件前台用的是DELPHI7后台用的是SQLSERVER2000,用了些第三方控件,数据库文件在data文件夹里!

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.