wait1.pas

delphi开发的委托加工管理系统源代码

unit wait1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIImagePanel, RzButton, RzPanel, RzPrgres, StdCtrls,
  RzEdit;

type
  Twait = class(TForm)
    RzGroupBox1: TRzGroupBox;
    RzGroupBox2: TRzGroupBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzMemo1: TRzMemo;
    RzProgressBar1: TRzProgressBar;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wait: Twait;

implementation

uses adodm;

{$R *.dfm}

procedure Twait.RzBitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Twait.RzBitBtn1Click(Sender: TObject);
begin
if (messagedlg('你确实要退出吗？',mtconfirmation,[mbyes,mbno],0))=mryes then
begin
rzmemo1.Lines.Add('正在执行数据库初始化......');
//repeat
//rzprogressbar1.Percent:=rzprogressbar1.Percent+1
//until
//rzprogressbar1.Percent:=100;
rzmemo1.Lines.Add('正在连接数据库......');
dm.ADOConnection1.Connected;
rzmemo1.Lines.Add('rkdata正在初始化......');
dm.adodata.CommandText:='delete * from rkdata';
dm.adodata.Execute;
rzmemo1.Lines.Add('rkdata初始化成功!');
rzmemo1.Lines.Add('ckdata正在初始化......');
dm.adodata.CommandText:='delete * from ckdata';
dm.adodata.Execute;
rzmemo1.Lines.Add('cldata正在初始化......');
dm.adodata.CommandText:='delete * from cldata';
dm.adodata.Execute;
rzmemo1.Lines.Add('cldata初始化成功!');
rzmemo1.Lines.Add('gysdata正在初始化......');
dm.adodata.CommandText:='delete * from gysdata';
dm.adodata.Execute;
rzmemo1.Lines.Add('gysdata初始化成功!');
rzmemo1.Lines.Add('gzdata正在初始化......');
dm.adodata.CommandText:='delete * from gzdata';
dm.adodata.Execute;
rzmemo1.Lines.Add('gzdata初始化成功!');
rzmemo1.Lines.Add('jglbdata正在初始化......');
dm.adodata.CommandText:='delete * from jglbdata';
dm.adodata.Execute;
rzmemo1.Lines.Add('jglbdata初始化成功!');
rzmemo1.Lines.Add('kcdata正在初始化......');
dm.adodata.CommandText:='delete * from kcdata';
dm.adodata.Execute;
rzmemo1.Lines.Add('kcdata初始化成功!');
rzmemo1.Lines.Add('usedata正在初始化......');
dm.adodata.CommandText:='delete * from usedata';
dm.adodata.Execute;
dm.adodata.CommandText:='insert into usedata (username,pass,jb,qx) values (''admin'',''123'',''管理员'',''管理者'')';
dm.adodata.Execute;
rzmemo1.Lines.Add('usedata初始化成功!');
rzmemo1.Lines.Add('wldata正在初始化......');
dm.adodata.CommandText:='delete * from wldata';
dm.adodata.Execute;
rzmemo1.Lines.Add('wldata初始化成功!');
rzmemo1.Lines.Add('yfdata正在初始化......');
dm.adodata.CommandText:='delete * from yfdata';
dm.adodata.Execute;
rzmemo1.Lines.Add('yfdata初始化成功!');
rzmemo1.Lines.Add('yjql正在初始化......');
dm.adodata.CommandText:='delete * from yjql';
dm.adodata.Execute;
rzmemo1.Lines.Add('yjql初始化成功!');
rzmemo1.Lines.Add('---------数据库初始化成功!---------');
//rzprogressbar1.Percent:=100;
end;
end;

end.