welcomeform.pas

功能全面的商业财会系统源码,清晰,很有参考价值.扩展性强.

unit WelcomeForm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, DB, DBTables;

type
  TfrmWelcome = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    RadioGroup1: TRadioGroup;
    radioSample: TRadioButton;
    radioDelete: TRadioButton;
    ProgramIcon: TImage;
    lblCompanyName: TLabel;
    lblProductName: TLabel;
    lblVersion: TLabel;
    Query1: TQuery;
    lblRegistered: TLabel;
    lblTrademark: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmWelcome: TfrmWelcome;

implementation

uses BS1Form;

{$R *.DFM}

procedure TfrmWelcome.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmWelcome.btnOKClick(Sender: TObject);
begin
  if radioDelete.checked = true then begin
    //if MessageDlg('Delete all data?', mtConfirmation, mbOKCancel, 0) <> mrOK then exit;
    repaint;

    try   //Ensure no other users are using the system.
      frmBS1.tblCompany.close;
      frmBS1.tblCompany.exclusive := true;
      frmBS1.tblCompany.open;
      frmBS1.tblCompany.close;
      frmBS1.tblCompany.exclusive := false;
      frmBS1.tblCompany.open;
    except
      frmBS1.tblCompany.exclusive := false;
      frmBS1.tblCompany.open;
      raise(exception.create('No one else can be using ' + application.title + ' while sample data is being deleted'));
    end;

    try
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM JVDet'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM JV'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM JVCtl'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM APInvChq'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM APInvDet'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM APInv'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM APInvCtl'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM APCheq'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM APChqCtl'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM ARInvPmt'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM ARInvDet'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM ARInv'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM ARInvCtl'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM ARPmt'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM ARPmtCtl'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM VBalance'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM VContact'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM Vendor'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM VendCtl'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM CBalance'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM CContact'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM Customer'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM CustCtl'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM Salesman'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM CusType'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM Bank'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM Company'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM Currency'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM Item'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM ItemCtl'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM Tax'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM GLActual'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM GLBudget'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM GLHist'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM GLAccnt'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM FStmtLAc'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM FStmtLTo'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM FStmtLin'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM FStmt'; try Query1.open; except; end;
      Screen.cursor := crHourglass; Query1.close; Query1.SQL[0] := 'DELETE FROM FStmtCtl'; try Query1.open; except; end;
    finally
      Screen.cursor := crDefault;
      Query1.close;
      frmBS1.tblCompany.refresh;
    end;
  end;
end;

procedure TfrmWelcome.FormCreate(Sender: TObject);
begin
  Query1.DatabaseName := strDatabaseName;
end;

end.