dazhuang.pas

来自「一个项目工程监理系统的全部源码」· PAS 代码 · 共 278 行

unit DaZhuang;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, DBTables, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  DBCtrls, dxDBTLCl, dxGrClms, Buttons, StdCtrls, DBGrids, TeeProcs,
  TeEngine, Chart, mxgraph, Grids, mxgrid, mxpivsrc, mxDB, mxtables,
  mxstore, Series, DBChart, jpeg,  ExtCtrls, OleCtrls, SHDocVw;

type
  TDaZhuangForm = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    XiuGaiT: TTable;
    XiuGaiTDS: TDataSource;
    dxDBGrid1: TdxDBGrid;
    Image1: TImage;
    dxDBGrid2: TdxDBGrid;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    DecisionSource1: TDecisionSource;
    DecisionPivot1: TDecisionPivot;
    DecisionGrid1: TDecisionGrid;
    Bevel1: TBevel;
    TongJiQ: TQuery;
    TabSheet4: TTabSheet;
    DBNavigator2: TDBNavigator;
    ZhuangShuTDS: TDataSource;
    Button1: TButton;
    ZhuangShuT: TTable;
    DBGrid1: TDBGrid;
    Bevel2: TBevel;
    TabSheet5: TTabSheet;
    PrinterSetupDialog1: TPrinterSetupDialog;
    Bevel3: TBevel;
    DBChart2: TDBChart;
    TuShuGuanT: TTable;
    DangAnGuanT: TTable;
    Button4: TButton;
    Button5: TButton;
    DBChart1: TDBChart;
    Button3: TButton;
    Button2: TButton;
    DiXiaShiT: TTable;
    DecisionGraph1: TDecisionGraph;
    Button6: TButton;
    Series22: TLineSeries;
    Series16: TLineSeries;
    Series17: TLineSeries;
    Series24: TLineSeries;
    Image2: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    Timer1: TTimer;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    Panel3: TPanel;
    Label2: TLabel;
    dxDBGrid2RiQi: TdxDBGridDateColumn;
    dxDBGrid2ZhuangJiHao: TdxDBGridMaskColumn;
    DBNavigator3: TDBNavigator;
    dxDBGrid2ZhuangHao: TdxDBGridButtonColumn;
    dxDBGrid2TianQi: TdxDBGridPickColumn;
    dxDBGrid1RiQi: TdxDBGridDateColumn;
    dxDBGrid1ZhuangJiHao: TdxDBGridMaskColumn;
    dxDBGrid1ZhuangHao: TdxDBGridMaskColumn;
    dxDBGrid1ZhuangShenJianCe: TdxDBGridCheckColumn;
    dxDBGrid1MaoZhuang: TdxDBGridCheckColumn;
    dxDBGrid1JingZaiJianCe: TdxDBGridPickColumn;
    dxDBGrid1XiaoYingBianJianCe: TdxDBGridPickColumn;
    dxDBGrid1TianQi: TdxDBGridPickColumn;
    dxDBGrid1WeiZhi: TdxDBGridPickColumn;
    dxDBGrid2ZhuangShenJianCe: TdxDBGridCheckColumn;
    dxDBGrid2MaoZhuang: TdxDBGridCheckColumn;
    dxDBGrid2XiaoYingBianJianCe: TdxDBGridPickColumn;
    dxDBGrid2JingZaiJianCe: TdxDBGridPickColumn;
    dxDBGrid2WeiZhi: TdxDBGridSpinColumn;
    TabSheet6: TTabSheet;
    WebBrowser1: TWebBrowser;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure dxDBGrid2ZhuangHaoEditButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DaZhuangForm: TDaZhuangForm;

implementation
 uses WenDang;

{$R *.DFM}

procedure TDaZhuangForm.SpeedButton1Click(Sender: TObject);
begin
  XiuGaiT.Append;
end;

procedure TDaZhuangForm.Button1Click(Sender: TObject);
var i,zhi: integer;
begin
  i:=1;
  ZhuangShuT.close;
  ZhuangShuT.Exclusive:=true;
  ZhuangShuT.EmptyTable;
  ZhuangShuT.Exclusive:=false;
  TongJiQ.SQL.Clear;
  TongJiQ.SQL.Add('INSERT INTO ZhuangShu(RiQi,ZhuangShu)');
  TongJiQ.SQL.Add('SELECT RiQi, COUNT( ZhuangHao )');
  TongJiQ.SQL.Add('FROM "JinDu.DB" GROUP BY RiQi');
  TongjiQ.ExecSQL;
  TongjiQ.Close;
  ZhuangShuT.open;
  ZhuangShuT.Edit;
  ZhuangShuT.FieldByName('TongJi').ASVariant:=ZhuangShuT.FieldByName('ZhuangShu').ASVariant;
  zhi:=ZhuangShuT.FieldByName('ZhuangShu').ASVariant;
  ZhuangShuT.RecNo:=2;
  while i<ZhuangShuT.RecordCount do
  begin
    ZhuangShuT.Edit;
    ZhuangShuT.FieldByName('TongJi').ASVariant:=ZhuangShuT.FieldByName('zhuangshu').ASVariant+zhi;
    zhi:=ZhuangShuT.FieldByName('TongJi').ASVariant;
    i:=i+1;
    ZhuangShuT.RecNo:=i+1;
  end

end;

procedure TDaZhuangForm.Button3Click(Sender: TObject);
begin
 if PrinterSetupDialog1.Execute then
   DBChart1.Print;
end;

procedure TDaZhuangForm.Button4Click(Sender: TObject);
begin
  if PrinterSetupDialog1.Execute then
   DBChart2.Print;
end;

procedure TDaZhuangForm.Button5Click(Sender: TObject);
var i,zhi: integer;
begin
//--------------------------------------
  i:=1;
  TuShuGuanT.close;
//  TuShuGuanT.Exclusive:=true;
  TuShuGuanT.EmptyTable;
//  TuShuGuanT.Exclusive:=false;
  TongJiQ.SQL.Clear;
  TongJiQ.SQL.Add('INSERT INTO TuShuGuan(RiQi,ZhuangShu)');
  TongJiQ.SQL.Add('SELECT RiQi, COUNT( ZhuangHao )');
  TongJiQ.SQL.Add('FROM "JinDu.DB" Where Weizhi="图书馆" GROUP BY RiQi ');
  TongjiQ.ExecSQL;
  TongjiQ.Close;
  TuShuGuanT.open;
  TuShuGuanT.Edit;
  TuShuGuanT.FieldByName('TongJi').ASVariant:=TuShuGuanT.FieldByName('ZhuangShu').ASVariant;
  zhi:=TuShuGuanT.FieldByName('ZhuangShu').ASVariant;
  TuShuGuanT.RecNo:=2;
  while i<TuShuGuanT.RecordCount do
  begin
    TuShuGuanT.Edit;
    TuShuGuanT.FieldByName('TongJi').ASVariant:=TuShuGuanT.FieldByName('zhuangshu').ASVariant+zhi;
    zhi:=TuShuGuanT.FieldByName('TongJi').ASVariant;
    i:=i+1;
    TuShuGuanT.RecNo:=i+1;
  end;
//--------------------------------------
  i:=1;
  DangAnGuanT.close;
  DangAnGuanT.EmptyTable;
  TongJiQ.SQL.Clear;
  TongJiQ.SQL.Add('INSERT INTO DangAnGuan(RiQi,ZhuangShu)');
  TongJiQ.SQL.Add('SELECT RiQi, COUNT( ZhuangHao )');
  TongJiQ.SQL.Add('FROM "JinDu.DB" Where Weizhi="档案馆" GROUP BY RiQi ');
  TongjiQ.ExecSQL;
  TongjiQ.Close;
  DangAnGuanT.open;
  DangAnGuanT.Edit;
  DangAnGuanT.FieldByName('TongJi').ASVariant:=DangAnGuanT.FieldByName('ZhuangShu').ASVariant;
  zhi:=DangAnGuanT.FieldByName('ZhuangShu').ASVariant;
  DangAnGuanT.RecNo:=2;
  while i<DangAnGuanT.RecordCount do
  begin
    DangAnGuanT.Edit;
    DangAnGuanT.FieldByName('TongJi').ASVariant:=DangAnGuanT.FieldByName('zhuangshu').ASVariant+zhi;
    zhi:=DangAnGuanT.FieldByName('TongJi').ASVariant;
    i:=i+1;
    DangAnGuanT.RecNo:=i+1;
  end;
//--------------------------------------
  i:=1;
  DiXiaShiT.close;
  DiXiaShiT.EmptyTable;
  TongJiQ.SQL.Clear;
  TongJiQ.SQL.Add('INSERT INTO DiXiaShi(RiQi,ZhuangShu)');
  TongJiQ.SQL.Add('SELECT RiQi, COUNT( ZhuangHao )');
  TongJiQ.SQL.Add('FROM "JinDu.DB" Where Weizhi="地下室" GROUP BY RiQi ');
  TongjiQ.ExecSQL;
  TongjiQ.Close;
  DiXiaShiT.open;
  DiXiaShiT.Edit;
  DiXiaShiT.FieldByName('TongJi').ASVariant:=DiXiaShiT.FieldByName('ZhuangShu').ASVariant;
  zhi:=DiXiaShiT.FieldByName('ZhuangShu').ASVariant;
  DiXiaShiT.RecNo:=2;
  while i<DiXiaShiT.RecordCount do
  begin
    DiXiaShiT.Edit;
    DiXiaShiT.FieldByName('TongJi').ASVariant:=DiXiaShiT.FieldByName('zhuangshu').ASVariant+zhi;
    zhi:=DiXiaShiT.FieldByName('TongJi').ASVariant;
    i:=i+1;
    DiXiaShiT.RecNo:=i+1;
  end;

end;

procedure TDaZhuangForm.Button6Click(Sender: TObject);
begin
if PrinterSetupDialog1.Execute then
   DecisionGraph1.Print;
end;

procedure TDaZhuangForm.TabSheet4Show(Sender: TObject);
begin
  if ZhuangShuT.Active=false then
     ZhuangShuT.open;
end;

procedure TDaZhuangForm.TabSheet5Show(Sender: TObject);
begin
 if TushuGuanT.Active=false then
   TushuGuanT.open;
   DangAnguanT.open;
   DiXiaShiT.open;
end;

procedure TDaZhuangForm.TabSheet3Show(Sender: TObject);
begin
  if ZhuangShuT.Active=false then
     ZhuangShuT.open;
end;

procedure TDaZhuangForm.Timer1Timer(Sender: TObject);
begin
  label1.Left:=label1.Left-1;
  if label1.Left=-1012 then
    label1.Left:=404;
  label2.Top:=label2.Top-1;
  if label2.Top=-111 then
    label2.Top:=225;


end;

procedure TDaZhuangForm.dxDBGrid2ZhuangHaoEditButtonClick(Sender: TObject);
begin
   WenDangForm.show;
end;

end.