ukcxx.pas

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

unit Ukcxx;

interface

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

type
  TFkcxx = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    qryview_kcxx: TADOQuery;
    qryview_kcxxbwid: TAutoIncField;
    qryview_kcxxkczs: TIntegerField;
    qryview_kcxxbwname: TStringField;
    qryview_kcxxbwprice: TBCDField;
    qryview_kcxxbwunit: TStringField;
    qryview_kcxxtotal: TBCDField;
    qryview_kcxxclid: TIntegerField;
    qryview_kcxxclname: TStringField;
    ds1: TDataSource;
    RzSizePanel2: TRzSizePanel;
    RzToolButton1: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzToolButton3: TRzToolButton;
    RzSpacer3: TRzSpacer;
    RzToolButton4: TRzToolButton;
    RzSpacer4: TRzSpacer;
    RzToolButton5: TRzToolButton;
    actlst1: TActionList;
    ashow: TAction;
    aprint: TAction;
    wpname: TDBLookupComboboxEh;
    lbl1: TLabel;
    lbl2: TLabel;
    RzBitBtn1: TRzBitBtn;
    qrywpb: TADOQuery;
    dswpb: TDataSource;
    dbclname: TDBLookupComboboxEh;
    ts: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    pm1: TPopupMenu;
    N1: TMenuItem;
    RzPanel1: TRzPanel;
    rcb1: TRzRadioButton;
    rcb2: TRzRadioButton;
    rcb3: TRzRadioButton;
    rcb5: TRzRadioButton;
    rcb4: TRzRadioButton;
    atsxs: TAction;
    procedure aprintExecute(Sender: TObject);
    procedure ashowExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dbclnameCloseUp(Sender: TObject; Accept: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure wpnameClick(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure rcb1Click(Sender: TObject);
    procedure atsxsExecute(Sender: TObject);
    procedure rcb2Click(Sender: TObject);
    procedure rcb3Click(Sender: TObject);
    procedure rcb5Click(Sender: TObject);
    procedure rcb4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fkcxx: TFkcxx;

implementation

uses Udate, Uwpbxx, Uclass, Umain, Usyssz, Usrfsz;

{$R *.dfm}
procedure TFkcxx.atsxsexecute(sender:tobject);
begin
   fdate.qryclass.Close;
  fdate.qryclass.Open;
  ts.Caption:='目前共有库存信息'+''+IntToStr(qryview_kcxx.RecordCount)+''+'条!';
end;

procedure TFkcxx.aprintExecute(Sender: TObject);
begin
  if qryview_kcxx.IsEmpty then begin
    MessageDlg('目前没有信息可以打印!',mtError,[mbYes],0);
    Exit;
  end;
  if MessageDlg('您真的要打印吗?',mtInformation,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

procedure TFkcxx.ashowExecute(Sender: TObject);
begin
  with qryview_kcxx do begin
    Close;SQL.Clear;SQL.Add('select * from view_kcxx');
    Open;
  end;
 atsxs.execute;
end;

procedure TFkcxx.RzBitBtn1Click(Sender: TObject);
begin
  if (wpname.Text='') and (dbclname.Text<>'') then begin
    with qryview_kcxx do begin
      Close;sql.clear;sql.add('select * from view_kcxx where clid='''+inttostr(dbclname.KeyValue)+'''');
      Open;
    end;
  end;
  if (wpname.Text='') and (dbclname.Text='') then begin
    with qryview_kcxx do begin
      Close;SQL.Clear;SQL.Add('select * from view_kcxx');
      Open;
    end;
  end;
  if wpname.Text<>'' then begin
    with qryview_kcxx do begin
      Close;sql.Clear;SQL.Add('select * from view_kcxx where bwid='''+inttostr(wpname.KeyValue)+'''');
      Open;
    end;
  end;
  ShowMessage('满足条件的库存信息'+''+IntToStr(qryview_kcxx.RecordCount)+''+'条!');
  ts.Caption:='满足条件的库存信息共有'+''+IntToStr(qryview_kcxx.RecordCount)+''+'条!';
end;

procedure TFkcxx.FormShow(Sender: TObject);
begin
  ashow.Execute;
end;

procedure TFkcxx.dbclnameCloseUp(Sender: TObject; Accept: Boolean);
begin
   if dbclname.Text<>'' then begin
    with qrywpb do begin
      Close;SQL.Clear;SQL.Add('select * from tbwpb where clid='''+inttostr(dbclname.KeyValue)+'''');
      Open;
    end;
   end;
   if qrywpb.IsEmpty then begin
    //MessageDlg('该类下没有物品!',mtError,[mbyes],0);
    //dbclname.SetFocus;
    Exit;
   end;
end;

procedure TFkcxx.RzToolButton1Click(Sender: TObject);
begin
  qrywpb.Close;
  qrywpb.Open; 
  fdate.qryclass.Close;
  fdate.qryclass.Open;
  ashow.Execute;
end;

procedure TFkcxx.wpnameClick(Sender: TObject);
begin
  if qrywpb.IsEmpty then begin
    MessageDlg('该类下没有物品可以选择!',mtError,[mbyes],0);
    dbclname.SetFocus;
    Exit;
  end;
end;

procedure TFkcxx.RzToolButton3Click(Sender: TObject);
begin
  aprint.Execute;
end;

procedure TFkcxx.N1Click(Sender: TObject);
begin
  if qryview_kcxx.RecordCount=0 then begin
    MessageDlg('目前没有库存统计信息！',mtError,[mbyes],0);
    Exit;
  end;
   Fsyssz.ShowModal;
end;

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

procedure TFkcxx.rcb1Click(Sender: TObject);
begin
  if rcb1.Checked then begin
    with qryview_kcxx do begin
      Close;SQL.Clear;SQL.Add('select * from view_kcxx order by clname');
      Open;
    end;
    atsxs.execute;
  end;
end;

procedure TFkcxx.rcb2Click(Sender: TObject);
begin
  if rcb2.Checked then begin
    with qryview_kcxx do begin
      Close;SQL.Clear;SQL.Add('select * from view_kcxx order by bwname');
      Open;
    end;
    atsxs.execute;
  end;
end;

procedure TFkcxx.rcb3Click(Sender: TObject);
begin
  if rcb3.Checked then begin
    with qryview_kcxx do begin
      Close;SQL.Clear;SQL.Add('select * from view_kcxx order by kczs');
      Open;
    end;
    atsxs.execute;
  end;
end;

procedure TFkcxx.rcb4Click(Sender: TObject);
begin
  if rcb4.Checked then begin
    with qryview_kcxx do begin
      Close;SQL.Clear;SQL.Add('select * from view_kcxx order by bwprice');
      Open;
    end;
    atsxs.execute;
  end;
end;

procedure TFkcxx.rcb5Click(Sender: TObject);
begin
  if rcb5.Checked then begin
    with qryview_kcxx do begin
      Close;SQL.Clear;SQL.Add('select * from view_kcxx order by total');
      Open;
    end;
    atsxs.execute;
  end;
end;

end.