mymath.pas

来自「一个仓库管理软件包括,仓库入库,仓库出库,库存信息,单据审核,反审核等功能.」· PAS 代码 · 共 91 行

unit MyMath;

interface

uses windows,excel2000, Sysutils, stdctrls, classes, DataBase, ComCtrls, DBTables,
  Controls, DBGrids, Variable, Messages, db, Forms, global, DBGridEh, Series, //DbChart, 
  Registry,   Printers,DBGridEhImpExp, Graphics,ADODB,QDialogs ; //QForms,

const
    SCnInformation = '提示';
    SCnWarning = '警告';
    SCnError = '错误';
    SCnEnabled = '有效';
    SCnDisabled = '禁用';
    SCnMsgDlgOK = '确认(&O)';
    SCnMsgDlgCancel = '取消(&C)';
    SUnknowError = '未知错误';
    SErrorCode = '错误代码：';

var
  gLogin:Boolean;
  gLoginName :string;
  gLoginPass :string;
  gLoginTime :string;

  procedure ExPortEh(SourceGrid: TDBGridEh);
  procedure OpenSQL(form:Tform; QurFree:TADOQuery;SQL:string);
  function InfoOk(Mess: string; Caption: string = SCnInformation): Boolean;
  function QueryDlg(Mess: string; DefaultNo: Boolean = False;
    Caption: string = SCnInformation): Boolean;

implementation

procedure ExPortEh(SourceGrid: TDBGridEh);
var ExpClass:TDBGridEhExportClass;
    Ext:String;
    SaveDialog1:TSaveDialog ;
begin
  SaveDialog1:=TSaveDialog.create(nil);
  SaveDialog1.Filter := 'Microsoft Excel 文件(*.xls)|Microsoft Word 文件(*.doc)|网页格式(*.htm)|文本格式(*.txt)';
  if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        4: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
        3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
        2: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'doc'; end;
        1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
      else
        ExpClass := nil; Ext := '';
      end;
      if ExpClass <> nil then
      begin
        if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
           UpperCase(Ext) then
          SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
        SaveDBGridEhToExportFile(ExpClass,SourceGrid,
             SaveDialog1.FileName,true);
      end;
   end;
end;


procedure OpenSQL(form:Tform; QurFree:TADOQuery;SQL:string);
begin
  with form do
  begin
    qurfree.close;
    qurfree.sql.clear;
    qurfree.sql.add(sql);
    qurfree.Open;
  end;
end;


function QueryDlg(Mess: string; DefaultNo: Boolean; Caption: string): Boolean;
const
  Defaults: array[Boolean] of DWORD = (0, MB_DEFBUTTON2);
begin
  Result := Application.MessageBox(PChar(Mess), PChar(Caption),
    MB_YESNO + MB_ICONQUESTION + Defaults[DefaultNo]) = IDYES;
end;


function InfoOk(Mess: string; Caption: string): Boolean;
begin
  Result := Application.MessageBox(PChar(Mess), PChar(Caption),
    MB_OK + MB_ICONINFORMATION) = IDOK;
end;

end.