acc_main.pas

来自「SunwayERP框架(支持Plugin)」· PAS 代码 · 共 85 行

unit ACC_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseForm, DB, ADODB, Menus, ComCtrls;

type
  TfrmACC_Main = class(TfrmBaseForm)
    ADOConn: TADOConnection;
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    B1: TMenuItem;
    O1: TMenuItem;
    N2: TMenuItem;
    StatusBar1: TStatusBar;
    N3: TMenuItem;
    procedure FormDestroy(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmACC_Main: TfrmACC_Main;
  UID:String;

implementation

uses DBPicker;

{$R *.dfm}

procedure TfrmACC_Main.FormDestroy(Sender: TObject);
begin
  inherited;
  frmACC_Main:=nil;
end;

procedure TfrmACC_Main.N1Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmACC_Main.N2Click(Sender: TObject);
begin
  inherited;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  frmDBPicker.Caption:='币种及汇率';
  with frmDBPicker.ADOQuery1 do
    begin
      Connection:=ADOConn;
      Close;
      LockType:=ltOptimistic;
      Sql.Text:='Select CUR_CODE 币别代码,CUR_NAME 币别名称,CUR_RATE 汇率,CUR_RATEDATE 汇率日期 from CURRENCRY order by CUR_CODE';
      Open;
    end;
  frmDBPicker.ShowModal;
end;

procedure TfrmACC_Main.N3Click(Sender: TObject);
begin
  inherited;
  frmDBPicker:=TfrmDBPicker.Create(Self);
  frmDBPicker.Caption:='票据设置';
  with frmDBPicker.ADOQuery1 do
    begin
      Connection:=ADOConn;
      Close;
      LockType:=ltOptimistic;
      Sql.Text:='Select INV_ID 票据代码,INV_NAME 票据名称,INV_RATE 税率 from INV_TYPE order by INV_ID';
      Open;
    end;
  frmDBPicker.ShowModal;
end;

end.