csh.pas

这是用Delphi编写的中小企业管理系统

unit csh;

interface

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

type
  Tf_csh = class(TForm)
    Image1: TImage;
    csh: TBitBtn;
    qx: TBitBtn;      
    Memo1: TMemo;
    procedure cshClick(Sender: TObject);
    procedure qxClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_csh: Tf_csh;

implementation
  uses  DataModal;
{$R *.dfm}

procedure Tf_csh.cshClick(Sender: TObject);
begin
  if Application.MessageBox('确实要进行初始化吗?','提示',mb_YesNO) = Id_Yes then
  begin
    if FileExists(ExtractFilePath(application.ExeName)+ '\qygl.SQL') = False then
    begin
      Application.MessageBox('请将名为qygl的脚本文件拷贝到应用程序所在的目录.','提示',64);
      Exit;
    end;
    Try
      Winexec(pchar('isqlw -S . -d  qygl -E -i '+ ExtractFilePath(application.ExeName)+ '\qygl.sql '+' -o c:\ww.txt'),4);
      Application.MessageBox('初始化成功.','提示',64);
      Close;
    Except
      Application.MessageBox('初始化失败.','提示',64);
      Close;
    End;
  end;
end;

procedure Tf_csh.qxClick(Sender: TObject);
begin
  Close;
end;

end.