main.pas

Rave Report 查看器,格式转换器,Rave生成的Ndr中文会乱码,用这个查看Ndr文件不会有乱码

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList, RzButton, jpeg,strutils, DB, ADODB;

type
  TMainForm = class(TForm)
    panButton: TPanel;
    MainMenu1: TMainMenu;
    menuProduct: TMenuItem;
    menuProductPrice: TMenuItem;
    MenuCustmerProductPrice: TMenuItem;
    rzBtsetProductPrice01: TRzMenuButton;
    rzBtsetCustmerprice01: TRzMenuButton;
    ActionEvent: TActionList;
    RegForm: TAction;
    ReadForm: TAction;
    imgBack: TImage;
    InitForm: TAction;
    InitMenuAndButton: TAction;
    rzBtProduct01: TRzMenuButton;
    InitLanguage: TAction;
    qtemp: TADOQuery;
    menuProductinfo: TMenuItem;
    InitimgFile: TAction;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ReadFormExecute(Sender: TObject);
    procedure InitFormExecute(Sender: TObject);
    procedure InitMenuAndButtonExecute(Sender: TObject);
    procedure InitLanguageExecute(Sender: TObject);
    procedure InitimgFileExecute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RegFormExecute(Sender: TObject);

  private
    { Private declarations }
    procedure CreateMDIChild(const Name: string);
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses query, SetCustmerPrice, SetProductPrice, Product;

{$R *.dfm}



procedure TMainForm.CreateMDIChild(const Name: string);


begin
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;

procedure TMainForm.ReadFormExecute(Sender: TObject);
var i:integer;
    Form:Tform;
    Formcaption,sForm:string;
    FForm:TPersistentClass;
begin
   dmquery.CurLanguage:='Language1';
   dmquery.qExecForm.Active :=false;
   dmquery.qExecForm.Active :=true;
   if lowercase(sender.ClassName)='trzmenubutton' then
     begin
            dmquery.qExecForm.Filter :='MForm='''+self.ClassName+''' and Button='''+
                                        (sender as TrzmenuButton).Name +'''';
     end;
   if lowercase(sender.ClassName)='trzbitbtn' then
     begin
            dmquery.qExecForm.Filter :='MForm='''+self.ClassName+''' and Button='''+
                                        (sender as TrzButton).Name +'''';
     end;
   if lowercase(sender.ClassName)='tbutton' then
     begin
            dmquery.qExecForm.Filter :='MForm='''+self.ClassName+''' and Button='''+
                                         (sender as TButton).Name +'''';
     end;
   if lowercase(sender.ClassName)='tmenuitem' then
     begin
            dmquery.qExecForm.Filter :='MForm='''+self.ClassName+''' and Button='''+
                                         (sender as Tmenuitem).Name +'''';
     end;

   dmquery.qExecForm.Filtered :=true;

   sForm:= dmquery.qExecForm.fieldbyname('Dform').AsString;

   self.qtemp.Active :=false;
   self.qtemp.SQL.Clear;
   self.qtemp.SQL.Text :='select Formname,'+dmquery.CurLanguage+' as FormCaption from formcaption where Formname='''+sForm+'''';
   self.qtemp.Active :=true;
   FormCaption:=self.qtemp.fieldbyname('FormCaption').AsString;

   self.qtemp.Close;


   FForm:=GetClass(sForm) ;

   if FForm=nil then
      begin
          showmessage('类 '+sForm+' 没有注册');
          exit;
      end;

   Form:=TFormCLass(FForm).Create(application);
   Form.Top :=0;

   Form.Left :=0;
   Form.Width :=self.imgBack.Width-10;
   Form.Height :=self.imgBack.Height-10;
   Form.Caption :=FormCaption;
   Form.Show;

end;

procedure TMainForm.InitFormExecute(Sender: TObject);
var Form:TForm;
begin
self.InitimgFileExecute(self.InitimgFile);
//tfmlogin.Create(nil).ShowModal;
self.InitLanguageExecute(mainform); 
self.RegFormExecute(self.RegForm);
self.InitMenuAndButtonExecute(self.InitMenuAndButton);


end;

procedure TMainForm.InitMenuAndButtonExecute(Sender: TObject);
var i:integer;
begin

end;

procedure TMainForm.InitLanguageExecute(Sender: TObject);
var sql:string;
    i:integer;
    controlType,Controlname,ControlCaption:string;
begin
if dmquery.CurLanguage ='' then exit;
    sql:='Select Formname,ControlName,ControlClass,'+dmquery.CurLanguage+' as Caption from ControlCaption '+
         'where Formname=''T'+(sender as TForm).Name+''' '+
         'order by Formname,ControlName ';
    self.qtemp.Active :=false;
    self.qtemp.SQL.Clear;
    self.qtemp.SQL.Text :=sql;
    self.qtemp.Active :=true;
if self.qtemp.RecordCount>0 then
  begin
    for i:=0 to self.qtemp.RecordCount -1 do
        begin
            controlType:=self.qtemp.fieldbyname('controlclass').AsString;
            Controlname:= self.qtemp.fieldbyname('controlname').AsString;
            controlcaption:=self.qtemp.fieldbyname('caption').AsString;
            if lowercase(ControlType)='trzmenubutton'  then
               begin
                   (self.FindComponent(controlname) as TrzmenuButton ).Caption :=controlcaption;

               end;
            if lowercase(ControlType)='trzbutton'  then
               begin
                    (self.FindComponent(controlname) as trzbutton ).Caption :=controlcaption;

               end;
            if lowercase(ControlType)='tbutton'  then
               begin
                    (self.FindComponent(controlname) as tbutton ).Caption :=controlcaption;

               end;
            if lowercase(ControlType)='tmenuitem'  then
               begin
                    (self.FindComponent(controlname) as tmenuItem ).Caption :=controlcaption;

               end;
            if lowercase(ControlType)='tlabel'  then
               begin
                    (self.FindComponent(controlname) as tlabel ).Caption :=controlcaption;

               end;
            self.qtemp.Next;
        end;
    end;
    self.qtemp.Close;      
end;

procedure TMainForm.InitimgFileExecute(Sender: TObject);
begin
self.qtemp.Active :=false;
self.qtemp.SQL.Clear;
self.qtemp.SQL.Text :='select * from lyhimgFold';
self.qtemp.Active :=true;
dmquery.imgFile:=self.qtemp.fieldbyname('imgFold').AsString;
qtemp.Close;
end;



procedure TMainForm.Button1Click(Sender: TObject);
var i:integer;
    Form:Tform;
    Formcaption,sForm:string;
    FForm:TPersistentClass;
begin


end;

procedure TMainForm.RegFormExecute(Sender: TObject);
begin
registerclass(TfmsetCustmerPrice);
registerclass(TfmsetProductPrice);
end;

end.