share.pas

delphi 生产管理系统 sql2000位后台数据库

unit share;

interface

uses SysUtils,adodb,COMOBJ,DBGridEh,db,DBGridEhImpExp,Dialogs,StdCtrls,
     forms;

procedure DBGridEHOut(DBGridEh:TDBGridEh;s:string);
procedure runsql(adoquery:tadoquery;strsql,runtype:string);
procedure tocombobox(var combobox:Tcombobox;adoquery:tadoquery;strsql,s:string);

var
 pop:integer;
 czy:string;
 btn_BS:integer; //0表示增加，1表示修改

implementation

procedure runsql(adoquery:tadoquery;strsql,runtype:string);
begin
if adoquery.Active =true then adoquery.Active :=false;
adoquery.SQL.Clear ;
adoquery.SQL.Add(strsql);
adoquery.Prepared ;
if runtype='open' then
  adoquery.Open ;
if runtype='execsql' then
  adoquery.ExecSQL ;
end;

procedure tocombobox(var combobox:Tcombobox;adoquery:tadoquery;strsql,s:string);
var
  I: Integer;
begin
  if adoquery.Active =true then adoquery.Active :=false;
  adoquery.SQL.Clear ;
  adoquery.SQL.Add(strsql);
  adoquery.Prepared;
  adoquery.Open ;
  adoquery.First;
  combobox.Items.Clear;
  for I := 0 to adoquery.RecordCount - 1 do    // Iterate
  begin
    combobox.Items.Add(adoquery.FieldValues[s]);
    adoquery.Next;
  end;    // for
//  combobox.ItemIndex:=0;
end;  

procedure DBGridEHOut(DBGridEh:TDBGridEh;s:string);
var ExpClass:TDBGridEhExportclass;
    Ext:String;
    SaveDialog1:tsavedialog;
begin
    SaveDialog1:=tsavedialog.Create(nil);
    SaveDialog1.Filter:='Excel 文档 (*.xls)|*.XLS|Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF';
    SaveDialog1.FileName :=s;
    SaveDialog1.DefaultExt := 'XLS';
    SaveDialog1.Title:='卡欧销售管理系统 数据导出';
    if SaveDialog1.Execute then
    begin
        case SaveDialog1.FilterIndex of
            1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
            2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
            3: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
            4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
            5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
        else
          ExpClass := nil; Ext := '';
        end;
      if ExpClass<>nil then
        if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) then  //若没有扩展名，则加上
           SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
           if not FileExists(SaveDialog1.FileName) then
              begin
                SaveDBGridEhToExportFile(ExpClass,DBGridEh,SaveDialog1.FileName,True);  //导出————关键
                application.MessageBox(pchar('目录为:'+#13#13+SaveDialog1.FileName),'导出成功');
              end
           else
                application.MessageBox('文件已经存在!','提示');
    end;
end;

end.