ukcfx.pas

小型企业物品管理系统,DELPHI源码+ACCESS数据库

unit Ukcfx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, ExtCtrls, TeEngine, Series, ArrowCha, TeeProcs, Chart,
  DbChart, RzButton, DB, ADODB, Menus;

type
  TFkcfx = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    dbcht1: TDBChart;
    RzToolButton1: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzToolButton2: TRzToolButton;
    RzSpacer2: TRzSpacer;
    RzToolButton3: TRzToolButton;
    qryckfx: TADOQuery;
    con1: TADOConnection;
    RzToolButton4: TRzToolButton;
    pm1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    RzSpacer3: TRzSpacer;
    qryckfxbwname: TStringField;
    qryckfxckzs: TIntegerField;
    qryckfxsedate: TDateTimeField;
    Series2: TPieSeries;
    procedure RzToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fkcfx: TFkcfx;

implementation

uses Udate;
//ksdate,jsdate:string;
{$R *.dfm}

procedure TFkcfx.RzToolButton3Click(Sender: TObject);
begin
  close;
end;

end.