urktj.pas

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

unit Urktj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzGroupBar, ExtCtrls, RzSplit, RzButton, Grids,
  DBGrids, RzDBGrid, DB, StdCtrls, Mask, DBCtrls, RzRadChk, RzEdit,
  ActnList, DBGridEh, PrnDbgeh, RzForms, RzGrids, ComCtrls, RzListVw,
  RzLstBox, RzDBList, DBSumLst, DBCtrlsEh, DBLookupEh, RzStatus, ADODB,
  Menus;

type
  TFrktj = class(TForm)
    RzStatusBar1: TRzStatusBar;
    dsrktj: TDataSource;
    actlst1: TActionList;
    ashow: TAction;
    afind: TAction;
    aprint: TAction;
    DBSumList1: TDBSumList;
    RzToolbar1: TRzToolbar;
    RzToolButton4: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzSpacer3: TRzSpacer;
    RzSpacer4: TRzSpacer;
    RzToolButton7: TRzToolButton;
    RzSpacer6: TRzSpacer;
    RzSpacer7: TRzSpacer;
    RzStatusPane1: TRzStatusPane;
    zs: TRzStatusPane;
    RzStatusPane2: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    RzSpacer1: TRzSpacer;
    RzToolButton1: TRzToolButton;
    RzPanel2: TRzPanel;
    RzGroupBox4: TRzGroupBox;
    lbledt1: TLabeledEdit;
    lbledt2: TLabeledEdit;
    lbledt3: TLabeledEdit;
    lbledt4: TLabeledEdit;
    RzPanel3: TRzPanel;
    RzPanel4: TRzPanel;
    RzSizePanel3: TRzSizePanel;
    qrywpb: TADOQuery;
    qrywpbbwid: TAutoIncField;
    qrywpbbwname: TStringField;
    qrywpbclid: TIntegerField;
    qrywpbbwunit: TStringField;
    qrywpbbwprice: TBCDField;
    qrywpbbwmemo: TStringField;
    dswpb: TDataSource;
    qryclass: TADOQuery;
    qryclassclid: TAutoIncField;
    qryclassclname: TStringField;
    qryclassclmemo: TStringField;
    dsclass: TDataSource;
    RzBitBtn1: TRzBitBtn;
    DBGridEh1: TDBGridEh;
    dbclass: TDBLookupComboboxEh;
    wpname: TDBLookupComboboxEh;
    lbl2: TLabel;
    lbl1: TLabel;
    lbledt5: TLabeledEdit;
    acsh: TAction;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure FormShow(Sender: TObject);
    procedure ashowExecute(Sender: TObject);
    procedure dbclassCloseUp(Sender: TObject; Accept: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure acshExecute(Sender: TObject);
    procedure RzToolButton7Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure RzToolButton4Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frktj: TFrktj;

implementation

uses Udate, Uclass, Uwpbxx, Utjxx, Upicture, Umain;

{$R *.dfm}

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

procedure TFrktj.ashowExecute(Sender: TObject);
begin
  qryclass.Close;
  qryclass.Open;
  with fdate.qryrktj do begin
    close;SQL.Clear;SQL.Add('select * from view_rktjxx');Open;
  end;
end;

procedure TFrktj.dbclassCloseUp(Sender: TObject; Accept: Boolean);
begin
   if dbclass.Text='' then begin
    with qrywpb do begin
      close;sql.Clear;sql.add('select * from tbwpb');
      open;
    end;
  end;
  if dbclass.Text<>'' then begin
    with qrywpb do begin
      close;
      sql.Clear;sql.Add('select * from tbwpb where clid='''+inttostr(dbclass.KeyValue)+'''');
      open;
    end;
  end;
end;

procedure TFrktj.RzBitBtn1Click(Sender: TObject);
begin
  if dbclass.Text='' then begin
    with fdate.qryrktj do begin
      Close;SQL.Clear;SQL.Add('select * from view_rktjxx');Open;
    end;
    ShowMessage('满足条件的信息有['+''+inttostr(fdate.qryrktj.RecordCount)+''+']条！');
    acsh.Execute;
    Exit;
  end;
  if wpname.Text='' then begin
    with fdate.qryrktj do begin
      Close;SQL.Clear;SQL.Add('select * from view_rktjxx where clid='''+inttostr(dbclass.KeyValue)+'''');
      Open;
    end;
     ShowMessage('满足条件的信息有['+''+inttostr(fdate.qryrktj.RecordCount)+''+']条！');
    acsh.Execute;
    Exit;
  end;
  if wpname.Text<>'' then begin
    with fdate.qryrktj do begin
      Close;SQL.Clear;SQL.Add('select * from view_rktjxx where clid='''+inttostr(dbclass.KeyValue)+''' and bwid='''+inttostr(wpname.KeyValue)+'''');
      Open;
    end;
     ShowMessage('满足条件的信息有['+''+inttostr(fdate.qryrktj.RecordCount)+''+']条！');
    acsh.Execute;
  end;
end;

procedure TFrktj.acshExecute(Sender: TObject);
begin
  zs.Caption:=''+inttostr(fdate.qryrktj.RecordCount)+'';
  lbledt1.Text:=currToStr(DBSumList1.SumCollection.Items[0].SumValue);
  lbledt2.Text:=FloatToStr(DBSumList1.SumCollection.Items[1].SumValue);
  lbledt3.Text:=FloatToStr(DBSumList1.SumCollection.Items[2].SumValue);
  lbledt4.Text:=FloatToStr(DBSumList1.SumCollection.Items[3].SumValue);
  lbledt5.Text:=FloatToStr(DBSumList1.SumCollection.Items[4].SumValue);
end;

procedure TFrktj.RzToolButton7Click(Sender: TObject);
begin
  close;
end;

procedure TFrktj.RzToolButton5Click(Sender: TObject);
begin
  if fdate.qryrktj.RecordCount=0 then begin
    MessageDlg('目前没有信息可以打印！',mtError,[mbYes],0);
    Exit;
  end;
  if MessageDlg('真的要打印吗？',mtInformation,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

procedure TFrktj.RzToolButton1Click(Sender: TObject);
begin
  ashow.Execute;
  acsh.Execute;
end;

procedure TFrktj.RzToolButton4Click(Sender: TObject);
begin
  if fdate.qryrktj.RecordCount=0 then begin
    MessageDlg('目前没有入库统计信息！',mtError,[mbyes],0);
    Exit;
  end;
  Fpicture.ShowModal;
end;

procedure TFrktj.DBGridEh1DblClick(Sender: TObject);
begin
  if fdate.qryrktj.recordcount=0 then
    Exit
  else begin
    frkxx.wpclass.text:=inttostr(fdate.qryrktjclid.value);
   frkxx.showmodal;
  end;
end;

end.