chshhfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 326 行

unit chshhfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Gauges, Buttons;

type
  Tchshh = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Gauge1: TGauge;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chshh: Tchshh;

implementation
uses datafrm;
{$R *.dfm}

procedure Tchshh.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tchshh.SpeedButton1Click(Sender: TObject);
var
  s,i,j:longint;
begin
  chshh.SpeedButton1.Enabled:=false;
  chshh.SpeedButton2.Enabled:=false;
  s:=0;
  i:=0;
  s:=s+yfgldata.sdyh.RecordCount;
  s:=s+yfgldata.sdf.RecordCount;
  s:=s+yfgldata.dwsdf.RecordCount;
  s:=s+yfgldata.grjyyj.RecordCount;
  s:=s+yfgldata.grjyyj1.RecordCount;
  s:=s+yfgldata.yjzl.RecordCount;
  s:=s+yfgldata.yj.RecordCount;
  s:=s+yfgldata.yj1.RecordCount;
  s:=s+yfgldata.kcyj.RecordCount;
  s:=s+yfgldata.kcyj1.RecordCount;
  s:=s+yfgldata.dwyj.RecordCount;
  s:=s+yfgldata.dwyj1.RecordCount;
  s:=s+yfgldata.dbd.RecordCount;
  s:=s+yfgldata.dbd1.RecordCount;
  s:=s+yfgldata.cjd.RecordCount;
  s:=s+yfgldata.cjd1.RecordCount;
  s:=s+yfgldata.dwqk.RecordCount;
  s:=s+yfgldata.guolu.RecordCount;
  s:=s+yfgldata.gx.RecordCount;
  s:=s+yfgldata.xjyf.RecordCount;
  s:=s+yfgldata.yfda.RecordCount;
  s:=s+yfgldata.yffd.RecordCount;
  s:=s+yfgldata.yfsb.RecordCount;
  s:=s+yfgldata.yfwz.RecordCount;
  s:=s+yfgldata.yfzl.RecordCount;
  s:=s+yfgldata.dt.RecordCount;
  s:=s+yfgldata.wx.RecordCount;
  s:=s+yfgldata.wxwz.RecordCount;
  s:=s+yfgldata.wxwz1.RecordCount;
  s:=s+yfgldata.dw.RecordCount;
  if s>1 then
    begin
      chshh.Label2.Caption:='正在初始化水电用户数据...';
      yfgldata.sdyh.First;
      for j:=1 to yfgldata.sdyh.RecordCount do
        begin
          yfgldata.sdyh.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化用户水电费数据...';
      yfgldata.sdf.First;
      for j:=1 to yfgldata.sdf.RecordCount do
        begin
          yfgldata.sdf.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化单位水电费数据...';
      yfgldata.dwsdf.First;
      for j:=1 to yfgldata.dwsdf.RecordCount do
        begin
          yfgldata.dwsdf.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化个人借用营具数据...';
      yfgldata.grjyyj.First;
      for j:=1 to yfgldata.grjyyj.RecordCount do
        begin
          yfgldata.grjyyj.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      yfgldata.grjyyj1.First;
      for j:=1 to yfgldata.grjyyj1.RecordCount do
        begin
          yfgldata.grjyyj1.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化营具种类数据...';
      yfgldata.yjzl.First;
      for j:=1 to yfgldata.yjzl.RecordCount do
        begin
          yfgldata.yjzl.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化系统营具数据...';
      yfgldata.yj.First;
      for j:=1 to yfgldata.yj.RecordCount do
        begin
          yfgldata.yj.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      yfgldata.yj1.First;
      for j:=1 to yfgldata.yj1.RecordCount do
        begin
          yfgldata.yj1.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化库存营具数据...';
      yfgldata.kcyj.First;
      for j:=1 to yfgldata.kcyj.RecordCount do
        begin
          yfgldata.kcyj.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      yfgldata.kcyj1.First;
      for j:=1 to yfgldata.kcyj1.RecordCount do
        begin
          yfgldata.kcyj1.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化单位营具数据...';
      yfgldata.dwyj.First;
      for j:=1 to yfgldata.dwyj.RecordCount do
        begin
          yfgldata.dwyj.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      yfgldata.dwyj1.First;
      for j:=1 to yfgldata.dwyj1.RecordCount do
        begin
          yfgldata.dwyj1.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化营具调拨单数据...';
      yfgldata.dbd.First;
      for j:=1 to yfgldata.dbd.RecordCount do
        begin
          yfgldata.dbd.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      yfgldata.dbd1.First;
      for j:=1 to yfgldata.dbd1.RecordCount do
        begin
          yfgldata.dbd1.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化出借单数据...';
      yfgldata.cjd.First;
      for j:=1 to yfgldata.cjd.RecordCount do
        begin
          yfgldata.cjd.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      yfgldata.cjd1.First;
      for j:=1 to yfgldata.cjd1.RecordCount do
        begin
          yfgldata.cjd1.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化单位情况数据...';
      yfgldata.dwqk.First;
      for j:=1 to yfgldata.dwqk.RecordCount do
        begin
          yfgldata.dwqk.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化锅炉分台登记表数据...';
      yfgldata.guolu.First;
      for j:=1 to yfgldata.guolu.RecordCount do
        begin
          yfgldata.guolu.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化管线数据...';
      yfgldata.gx.First;
      for j:=1 to yfgldata.gx.RecordCount do
        begin
          yfgldata.gx.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化新建营房数据...';
      yfgldata.xjyf.First;
      for j:=1 to yfgldata.xjyf.RecordCount do
        begin
          yfgldata.xjyf.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化营房档案数据...';
      yfgldata.yfda.First;
      for j:=1 to yfgldata.yfda.RecordCount do
        begin
          yfgldata.yfda.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化营房分栋登记表数据...';
      yfgldata.yffd.First;
      for j:=1 to yfgldata.yffd.RecordCount do
        begin
          yfgldata.yffd.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化营房设施设备数据...';
      yfgldata.yfsb.First;
      for j:=1 to yfgldata.yfsb.RecordCount do
        begin
          yfgldata.yfsb.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化营房战备物资数据...';
      yfgldata.yfwz.First;
      for j:=1 to yfgldata.yfwz.RecordCount do
        begin
          yfgldata.yfwz.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化营房坐落登记表数据...';
      yfgldata.yfzl.First;
      for j:=1 to yfgldata.yfzl.RecordCount do
        begin
          yfgldata.yfzl.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化电梯分部登记表数据...';
      yfgldata.dt.First;
      for j:=1 to yfgldata.dt.RecordCount do
        begin
          yfgldata.dt.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化维修登记数据...';
      yfgldata.wx.First;
      for j:=1 to yfgldata.wx.RecordCount do
        begin
          yfgldata.wx.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化维修物资数据...';
      yfgldata.wxwz.First;
      for j:=1 to yfgldata.wxwz.RecordCount do
        begin
          yfgldata.wxwz.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      yfgldata.wxwz1.First;
      for j:=1 to yfgldata.wxwz1.RecordCount do
        begin
          yfgldata.wxwz1.Delete;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      chshh.Label2.Caption:='正在初始化单位设置数据...';
      yfgldata.dw.First;
      for j:=1 to yfgldata.dw.RecordCount do
        begin
          if yfgldata.dw.FieldByName('上级代码').AsString<>'' then
            yfgldata.dw.Delete
          else
            yfgldata.dw.Next;
          i:=i+1;
          chshh.Gauge1.Progress:=(i*100) div s;
        end;
      messagebox(chshh.handle,'系统初始化完毕。','营房工作管理系统',mb_iconexclamation);
      close;
    end
  else
    begin
      messagebox(chshh.handle,'系统已经初始化。','营房工作管理系统',16);
      close;
    end;
end;

end.