ucktjxx.pas

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

unit Ucktjxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzButton, DBSumLst, PrnDbgeh, ActnList, DB, Grids,
  RzGrids, StdCtrls, Mask, RzEdit, DBCtrls, RzRadChk, RzGroupBar, RzSplit,
  ExtCtrls, DBGridEh, ADODB, DBCtrlsEh, DBLookupEh, RzStatus, TeEngine,
  Series, TeeProcs, Chart, DbChart, Menus;

type
  TFcktjxx = class(TForm)
    RzStatusBar1: TRzStatusBar;
    dscktj: TDataSource;
    actlst1: TActionList;
    ashow: TAction;
    PrintDBGridEh1: TPrintDBGridEh;
    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;
    RzGroupBox4: TRzGroupBox;
    lbledt1: TLabeledEdit;
    lbledt2: TLabeledEdit;
    lbledt3: TLabeledEdit;
    lbledt4: TLabeledEdit;
    lbledt5: TLabeledEdit;
    RzSizePanel1: TRzSizePanel;
    RzPanel1: TRzPanel;
    lbl3: TLabel;
    lbl4: TLabel;
    RzBitBtn2: TRzBitBtn;
    wpname: TDBLookupComboboxEh;
    dbclass: TDBLookupComboboxEh;
    RzPanel3: TRzPanel;
    dsclass: TDataSource;
    qrywpb: TADOQuery;
    qrywpbbwid: TAutoIncField;
    qrywpbbwname: TStringField;
    qrywpbclid: TIntegerField;
    qrywpbbwunit: TStringField;
    qrywpbbwprice: TBCDField;
    qrywpbbwmemo: TStringField;
    dswpb: TDataSource;
    acsh: TAction;
    DBGridEh1: TDBGridEh;
    pm1: TPopupMenu;
    N1: TMenuItem;
    procedure RzToolButton7Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure ashowExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure acshExecute(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fcktjxx: TFcktjxx;

implementation

uses Udate, Uwpbxx, Uclass, Ullxx, Utxtjsz, Umain;

{$R *.dfm}

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

procedure TFcktjxx.ashowExecute(Sender: TObject);
begin
  fdate.qryclass.close;
  fdate.qryclass.Open;
  Fwpbxx.qryview_wpb.Close;
  Fwpbxx.qryview_wpb.Open;
  fdate.qrycktj.close;
  fdate.qrycktj.Open;
end;

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

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

procedure TFcktjxx.RzBitBtn2Click(Sender: TObject);
begin
  if dbclass.Text='' then begin
    with fdate.qrycktj do begin
      Close;SQL.Clear;SQL.Add('select * from view_cktjxx');Open;
    end;
    acsh.Execute;
    Exit;
  end;
  if wpname.Text='' then begin
    with fdate.qrycktj do begin
      Close;SQL.Clear;SQL.Add('select * from view_cktjxx where clid='''+inttostr(dbclass.KeyValue)+'''');
      Open;
    end;
    acsh.Execute;
    Exit;
  end;
  if wpname.Text<>'' then begin
    with fdate.qrycktj do begin
      Close;SQL.Clear;SQL.Add('select * from view_cktjxx where clid='''+inttostr(dbclass.KeyValue)+''' and bwid='''+inttostr(wpname.KeyValue)+'''');
      Open;
    end;
    acsh.Execute;
  end;
end;

procedure TFcktjxx.acshExecute(Sender: TObject);
begin
  lbledt1.Text:=floatToStr(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 TFcktjxx.RzToolButton1Click(Sender: TObject);
begin
    ashow.Execute;
  acsh.Execute;
end;

procedure TFcktjxx.DBGridEh1DblClick(Sender: TObject);
begin
  if fdate.qrycktj.recordcount=0 then //wpclass
    Exit
  else begin
    Fllxx.Caption:='类型名称为：['+''+fdate.qrycktjclname.Value+''+']';
    Fllxx.wpclass.Text:=IntToStr(fdate.qrycktjclid.Value);
    fllxx.showmodal;
  end;
end;

procedure TFcktjxx.N1Click(Sender: TObject);
begin
  if fdate.qrycktj.RecordCount=0 then begin
    MessageDlg('目前没有统计信息！',mtError,[mbyes],0);
    Exit;
  end;
  Fckpicture.ShowModal;  
end;

procedure TFcktjxx.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
 {if fdate.qrycktjckzs.Value=0 then
   //DBGridEh1.Canvas.Brush.Color:=clRed
  else
     DBGridEh1.Canvas.Brush.Color:=clWindowText; }
end;

end.