account.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit Account;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ADODB, DB, ExtCtrls, DBGridEh, StdCtrls, Grids;

type
  TAccountForm = class(TForm)
    btbDel: TBitBtn;
    btbAdd: TBitBtn;
    btbOK: TBitBtn;
    btbExit: TBitBtn;
    btnChangeLink: TBitBtn;
    Panel1: TPanel;
    grdAccount: TDBGridEh;
    Panel2: TPanel;
    Shape1: TShape;
    Label1: TLabel;
    procedure btbOKClick(Sender: TObject);
    procedure btbExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AccountForm: TAccountForm;

implementation

uses datamodule1, Ufhmrp;
{$R *.DFM}

procedure TAccountForm.btbOKClick(Sender: TObject);
var
  sUdl:string;
begin
  with dataE2 do
  begin
    sUdl:='myConStore'+trim(querytmp.fieldbyname('accsetid').asstring);
    bBakAccSet:= querytmp.fieldbyname('IsPos').asboolean;
    sAccountName:=querytmp.fieldbyname('AccSetName').AsString;
    queryTmp.close;
    grdAccount.DataSource:=nil;
    ConnectDatabase(false,sUdl);
    mainForm.Caption:=Copy(mainForm.Caption,1,Pos('-',mainForm.Caption))+'['+dataE2.sAccountName+']'
  end;
end;

procedure TAccountForm.btbExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TAccountForm.FormShow(Sender: TObject);
begin
  with dataE2 do
  begin
    grdAccount.DataSource:=DataE2.dsTmp;
    ConnectDatabase(true,'myConStore');
    queryTmp.sql.clear;
    querytmp.sql.add('select * from FhAccount');
    queryTmp.open;
    grdAccount.SetFocus;
  end;
end;

procedure TAccountForm.FormCreate(Sender: TObject);
var
  sPath,s,ch:string;
  fSql:TextFile;
begin
  with dataE2 do
  begin
    ConnectDatabase(true,'myConStore');
    s:='select * from dbo.sysobjects where id = object_id(N''[dbo].[FhAccount]'') and OBJECTPROPERTY(id, N''IsUserTable'') = 1';
    qryGet.sql.clear;
    qryGet.sql.add(s);
    qryGet.open;
    if qryGet.RecordCount=0 then
      try
        s:='';
        sPath:=ExtractFileDir(Application.ExeName);
        sPath:=sPath+'\FhAccount.sql';
        if FileExists(sPath) then
        begin
          AssignFile(fSql,sPath);
          Reset(fSql);
          while not eof(fSql) do
          begin
            readln(fSql,ch);
            s:=s+ch+#13;
          end;
          closeFile(fSql);
          qryGet.sql.clear;
          qryGet.sql.add(s);
          qryGet.ExecSQL;
          s:='';
          s:='insert into FhAccount (AccSetName,DBName,IsPos)';
          s:=s+' Values (''默认帐套'',''FHE2'',0)';
          qryGet.sql.clear;
          qryGet.sql.add(s);
          qryGet.ExecSQL; end
        else
          begin
            Application.MessageBox(Pchar('文件'+sPath+'不存在！'),'提示',64);
            Application.Terminate;
          end;
      except
        Application.MessageBox(Pchar('脚本文件中含有不符合SQL语法的语句！'),'提示',64);
        Application.Terminate;
      end;
  end;
end;

end.