unit5.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, Db, DBClient, TB97, StdCtrls, Buttons, Grids,
  DBGrids, ComCtrls, lmdctrl, Lmdsplta, FileCtrl, lmdclass, lmdnwgui,
  lmdstdcS, cmpGFXComboBox;

type
  TForm5 = class(TForm)
    StatusBar1: TStatusBar;
    Dock971: TDock97;
    Toolbar971: TToolbar97;
    Panel8: TPanel;
    Bevel11: TBevel;
    Bevel12: TBevel;
    Bevel13: TBevel;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    Label7: TLabel;
    Label8: TLabel;
    Toolbar972: TToolbar97;
    Panel9: TPanel;
    Image3: TImage;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    Toolbar973: TToolbar97;
    Panel6: TPanel;
    Image1: TImage;
    SpeedButton23: TSpeedButton;
    Dock972: TDock97;
    Toolbar974: TToolbar97;
    Panel1: TPanel;
    Label4: TLabel;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    O1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    E1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    G1: TMenuItem;
    N3: TMenuItem;
    N11: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    PopupMenu2: TPopupMenu;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N31: TMenuItem;
    OpenDialog1: TOpenDialog;
    Panel10: TPanel;
    Image5: TImage;
    C1: TMenuItem;
    N16: TMenuItem;
    ColorDialog1: TColorDialog;
    LMD2PaneSplitCtrl1: TLMD2PaneSplitCtrl;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    N17: TMenuItem;
    SpeedButton1: TSpeedButton;
    Panel3: TPanel;
    FileListBox1: TFileListBox;
    Panel4: TPanel;
    Image6: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Image4: TImage;
    Sendbt: TSpeedButton;
    Image2: TImage;
    Image7: TImage;
    GFXComboBox1: TGFXComboBox;
    LMDSimpleLabel1: TLMDSimpleLabel;
    ImageList1: TImageList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton18Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
   
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormResize(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SendbtClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure GFXComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    MsExcel:Variant;
     MsExcelWorkBook:Variant;
     MsExcelWorkSheet:Variant;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit4,COMOBJ, Unit2, REMain1,Reabout, sendUnit;

{$R *.DFM}
var
copy:array[0..20] of Variant;



procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form4.enabled:=true;
try
form4.close;
except
end;
end;

procedure TForm5.SpeedButton18Click(Sender: TObject);
begin
   if fileexists(form4.listbox1.Items.Strings[1]) then
          deletefile(pchar(form4.listbox1.Items.Strings[1]));
ClientDataSet1.SaveToFile(form4.listbox1.Items.Strings[1]);
showmessage(form5.Caption+' 文件已被存!'  );
end;

procedure TForm5.N31Click(Sender: TObject);
begin
if SaveDialog1.Execute then
  begin
   ClientDataSet1.SaveToFile(SaveDialog1.FileName);
   ClientDataSet1.Close;
   ClientDataSet1.LoadFromFile(SaveDialog1.FileName);
    ClientDataSet1.open;
   form5.Caption:=SaveDialog1.FileName;
   form4.ListBox1.Items.Strings[1]:=SaveDialog1.FileName;

end ;
end;

procedure TForm5.SpeedButton17Click(Sender: TObject);
var
i:integer;
begin
if OpenDialog1.Execute then
  begin
   mainform.editor.DataSource:=nil;
     mainform.editor.DataField:='';
   ClientDataSet1.Close;
   ClientDataSet1.LoadFromFile(OpenDialog1.FileName);
    ClientDataSet1.open;
     form4.Label2.Caption:='true';
      mainform.close;
     {ainform.editor.Enabled:=false}
      for i:=0 to  form5.ClientDataSet1.FieldCount-1 do
  begin

   if form5.ClientDataSet1.Fields[i].DataType=ftblob then
   begin
{    mainform.editor.Enabled:=true;  }
    mainform.editor.DataSource:=form5.DataSource1;
    mainform.editor.DataField:=form5.ClientDataSet1.Fields[i].FieldName;
    form4.Label2.Caption:='false';
    mainform.show;

   end;


  end;

    try
   ClientDataSet1.First;
   ClientDataSet1.Next;
    ClientDataSet1.First;
  except
  end;

   form5.Caption:=OpenDialog1.FileName;
   form4.ListBox1.Items.Strings[1]:=OpenDialog1.FileName;
  FileListBox1.Directory:=ExtractFilePath(OpenDialog1.FileName);
   FileListBox1.Refresh;
end ;
end;

procedure TForm5.N12Click(Sender: TObject);
var
i:integer;
begin
if  not ClientDataSet1.IsEmpty then
begin
for i:=0 to ClientDataSet1.FieldCount-1 do
begin
copy[i]:=ClientDataSet1.Fields[i].Value;
end;
ClientDataSet1.Delete;
end;
end;

procedure TForm5.N13Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ClientDataSet1.FieldCount-1 do
begin
copy[i]:=ClientDataSet1.Fields[i].Value;
end;

end;

procedure TForm5.N14Click(Sender: TObject);
var
i:integer;
begin
if not   ClientDataSet1.IsEmpty then
begin
ClientDataSet1.Insert;
for i:=0 to ClientDataSet1.FieldCount-1 do
begin
ClientDataSet1.Edit;
ClientDataSet1.Fields[i].Value:=copy[i];
end;
end;

end;

procedure TForm5.N24Click(Sender: TObject);
var
C:variant;
begin
c:=ClientDataSet1.Fields[DBGriD1.SelectedIndex].Value;
while not ClientDataSet1.EOF do
begin
ClientDataSet1.Edit;
ClientDataSet1.Fields[DBGriD1.SelectedIndex].Value:=c;
ClientDataSet1.Next;
end;

end;

procedure TForm5.N25Click(Sender: TObject);
var

C:variant;
begin
while not ClientDataSet1.EOF do
begin
ClientDataSet1.Edit;
ClientDataSet1.Fields[DBGriD1.SelectedIndex].Value:=c;
ClientDataSet1.Next;
end;
end;

procedure TForm5.SpeedButton23Click(Sender: TObject);
var
i:integer;
j:integer;
C:string;

begin
if not ClientDataSet1.IsEmpty then
begin

 try
        MsExcel:=CreateOleObject('Excel.Application');
        MsExcelWorkBook:=MsExcel.WorkBooks.Add;
        MsExcelWorkSheet:=MsExcel.WorkSheets.Add;
    except
        MessageDlg('启动Excel 97出现异常！！请检查你的机器内是否安装OFFICE97？',mtWarning,[mbOK],0);
        exit;
   end;

   MsExcel.Visible:=True;
  {+========================================+}
      ClientDataSet1.First;
      for I:=0 to   ClientDataSet1.FieldCount-1 do
      begin
        if i=0 then C:='A';
           if i=1 then C:='B';
           if i=2 then C:='C';
           if i=3 then C:='D';
           if i=4 then C:='E';
           if i=5 then C:='F';
           if i=6 then C:='G';
           if i=7 then C:='H';
           if i=8 then C:='I';
           if i=9 then C:='J';
           if i=10 then C:='K';
           if i=11 then C:='L';
           if i=12 then C:='M';
           if i=13 then C:='N';
           if i=14 then C:='O';
           if i=15 then C:='P';
           if i=16 then C:='K';
           if i=17 then C:='R';
           if i=18 then C:='S';
           if i=19 then C:='T';
           if i=20 then C:='U';
           if i=21 then C:='V';
           if i=22 then C:='W';
           if i=23 then C:='X';
           if i=24 then C:='Y';
           if i=25 then C:='Z';
           if i=26 then C:='AA';
           if i=27 then C:='AB';
           if i=28 then C:='AC';
           if i=29 then C:='AD';
           if i=30 then C:='AE';
           if i=31 then C:='AF';
           if i=32 then C:='AG';
           if i=33 then C:='AH';
           if i=34 then C:='AI';
           if i=35 then C:='AJ';
           if i=36 then C:='AK';
           if i=37 then C:='AL';
           if i=38 then C:='AM';
           if i=39 then C:='AN';
           if i=40 then C:='AO';
           if i=41 then C:='AP';
           if i=42 then C:='AK';
           if i=43 then C:='AR';
           if i=44 then C:='AS';
           if i=45 then C:='AT';
           if i=46 then C:='AU';
           if i=47 then C:='AV';
           if i=48 then C:='AW';
           if i=49 then C:='AX';
           if i=50 then C:='AY';
           if i=51 then C:='AZ';

           MsExcelWorkSheet.Range[C+IntToStr(1)].Value:=ClientDataSet1.Fields[i].fieldname ;
           end;




      ClientDataSet1.First;
      J:=0;
        WHILE NOT ClientDataSet1.EOF DO
           begin