utjxx.pas

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

unit Utjxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, ExtCtrls, RzRadChk, RzButton, DBGridEh, StdCtrls, Mask,
  DBCtrlsEh, DBLookupEh, RzEdit, DB, ADODB, ActnList, Grids, PrnDbgeh;

type
  TFrkxx = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    DBGridEh1: TDBGridEh;
    dsgoodin: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    qry_gooin: TADOQuery;
    qry_gooinbwname: TStringField;
    qry_gooinbyid: TAutoIncField;
    qry_gooinbwid: TIntegerField;
    qry_gooinbydizhi: TStringField;
    qry_gooinbyquanty: TIntegerField;
    qry_gooinbytotal: TBCDField;
    qry_gooinbycgdate: TDateTimeField;
    qry_gooincgid: TIntegerField;
    qry_gooinbyrkdate: TDateTimeField;
    qry_gooinrkid: TIntegerField;
    qry_gooinbymemo: TStringField;
    qry_gooincgname: TStringField;
    qry_gooinrkname: TStringField;
    qry_gooinclid: TIntegerField;
    qry_gooinclname: TStringField;
    RzSpacer1: TRzSpacer;
    RzToolButton1: TRzToolButton;
    RzSpacer2: TRzSpacer;
    RzToolButton3: TRzToolButton;
    wpclass: TEdit;
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure img3Click(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frkxx: TFrkxx;

implementation

uses Urktj, Udate, Uempty, Uwpbxx, Umain;

{$R *.dfm}

procedure TFrkxx.FormShow(Sender: TObject);
begin
  with qry_gooin do begin
    Close;SQL.Clear;SQL.Add('select * from view_gooin where clid='''+wpclass.Text+''' order by byrkdate');
    Open;
  end;
end;

procedure TFrkxx.RzBitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TFrkxx.img3Click(Sender: TObject);
begin
  close;
end;

procedure TFrkxx.RzToolButton1Click(Sender: TObject);
begin
  if MessageDlg('您真的要打印吗？',mtInformation,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

end.