uni_function.pas

来自「一个非常不错的经费报销管理软件」· PAS 代码 · 共 184 行

unit Uni_Function;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Menus, Buttons;

type
  TFrm_Function = class(TForm)
    MTree: TMemo;
    MainMenu: TMainMenu;
    Function1: TMenuItem;
    DataOpen: TMenuItem;
    PurviewSet: TMenuItem;
    procedure DataOpenClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Choosed:Boolean;
  TBname:String;

  Frm_Function: TFrm_Function;
  function TreeRead(str:String):Boolean;//读取分类树
  function GetGUID:string;   //PK字段取值
  function TieDataOpen:Boolean;

  //提示信息封装
  procedure MessageBoxInfo(AMsg: string);
  procedure MessageBoxWarning(AMsg: string);
  procedure MessageBoxError(AMsg: string);
  function  MessageBoxQuery(AMsg: string):Integer;
  //function  InsertData(ATableName,cOperation: string):Boolean;

implementation

uses Uni_DM,IniFiles,strUtils;

{$R *.dfm}

//uses Uni_DM,IniFiles,strUtils;

//function  InsertData(ATableName,cOperation: string):Boolean;
//var
//  strsql:String;
//begin
   { strsql:='insert into bsBook() '+
      'select getdate()'+QuotedStr('支出')+',cNum,cbranchsNum,cItemNum,fMancount,'+
      'fStandard,fPayoutMoney,iState '+
      'from PayoutMX'+
      'where iState=1 and  ';
    }
//end;

procedure MessageBoxInfo(AMsg: string);
begin
  Application.MessageBox(PChar(AMsg),'提示',MB_ICONINFORMATION+MB_TOPMOST);

end;

procedure MessageBoxError(AMsg: string);
begin
  Application.MessageBox(PChar(AMsg),'错误',MB_ICONERROR+MB_TOPMOST);

end;

function MessageBoxQuery(AMsg: string):Integer ;
begin
  Result := Application.MessageBox(PChar(AMsg),
            '询问',MB_ICONQUESTION+MB_YESNO+MB_TOPMOST);

end;

procedure MessageBoxWarning(AMsg: string);
begin
  Application.MessageBox(PChar(AMsg),'警告',MB_ICONWARNING+MB_TOPMOST);
end;

function TreeRead(str:String):Boolean ;
var  sp:String;
begin

  //读商品分类树到TTREEVIEW

  SP:='                    ';
  try
    with DM do
    begin
      TADOQuery(FindComponent(str)).Close;
      TADOQuery(FindComponent(str)).Open;

      Frm_Function.MTree.Lines.Clear;
      WHILE NOT TADOQuery(FindComponent(str)).Eof
      DO BEGIN
        Frm_Function.MTree.Lines.Add(LEFTSTR(SP,TADOQuery(FindComponent(str)).FieldByName('iGrade').AsInteger)
        +'['+TADOQuery(FindComponent(str)).FieldByName('cNum').AsString+'] '
        +TADOQuery(FindComponent(str)).FieldByName('cName').AsString);
        TADOQuery(FindComponent(str)).Next;
      END;
      Frm_Function.MTree.Lines.SaveToFile('SPTREE.TXT');
      TADOQuery(FindComponent(str)).Close;
      TADOQuery(FindComponent(str)).Open;
    end;
    Result:=True;
  except
    Result:=False;
    ShowMessage('树结构操作失败！！');
  end;
  

end;

function GetGUID:string;
var
  id:tguid;
  pk:String;
begin
  if CreateGuid(id)=s_ok then
  begin
    pk:=guidtostring(id);
    delete(pk,1,1);
    delete(pk,length(pk),1);
    result:=pk;
  end;
end;

procedure TFrm_Function.DataOpenClick(Sender: TObject);
VAR
  MYINIFILE:TIniFile;
begin
  //断开数据库连接
  DM.Server.Connected:=False;

  //数据库连接
  //读INI文件
  MYINIFILE:=TIniFile.Create(GetCurrentDir+'\DATABASE.INI');
  TRY
  DM.Server.ConnectionString:=
  'Provider=SQLOLEDB.1;Password='+MYINIFILE.ReadString('DATABASE','USERPASSWORD','')+
  ';Persist Security Info=True;User ID='+MYINIFILE.ReadString('DATABASE','USERNAME','')+
  ';Initial Catalog='+MYINIFILE.ReadString('DATABASE','DATABASENAME','')+
  ';Data Source='+MYINIFILE.ReadString('DATABASE','SERVER','');
  DM.Server.Connected:=True;
  //ShowMessage('登陆成功!!');
  EXCEPT
  ShowMessage('数据库连接失败');
  Close;
  END;
  //释放INI文件
  MYINIFILE.Free;

end;

function TieDataOpen:Boolean;
begin
  //数据库连接
  DM.Server_Tiein.Connected:=False;

  TRY
    DM.Server_Tiein.ConnectionString:=
    'Provider=SQLOLEDB.1;Password='+DM.bsTieinSetup.FieldByName('Password').AsString
    +';Persist Security Info=True;User ID='+DM.bsTieinSetup.FieldByName('User').AsString
    +';Initial Catalog='+DM.bsTieinSetup.FieldByName('DataBase').AsString
    +';Data Source='+DM.bsTieinSetup.FieldByName('Server').AsString;
    DM.Server_Tiein.Connected:=True;
    Result:=True;

    //ShowMessage('连接成功');
  EXCEPT
    Result:=False;
    ShowMessage('帐套['+DM.bsTieinSetup.FieldByName('ZTMC').AsString+']连接失败!!');
  END;

end;


ENd.