frm_dst.pas

一个电力企业的后台管理程序

unit Frm_Dst;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Buttons,DTS_Cls, DBTables, Db;

type
  TForm_Dts = class(TForm)
    Panel1: TPanel;
    pc_DtsWizads: TPageControl;
    Ts_DataBaseSet: TTabSheet;
    Ts_SelectTable: TTabSheet;
    Ts_CondSet: TTabSheet;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    Edt_HostName: TEdit;
    Label2: TLabel;
    Edt_DbName: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edt_UserName: TEdit;
    Edt_PassWord: TEdit;
    Rb_Outport: TRadioButton;
    Rb_Import: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Lb_Source: TListBox;
    Lb_Des: TListBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Lv_Table: TListView;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Lv_TableDblClick(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
    DtsTemp: DTS;

  public
    { Public declarations }
  end;

var
  Form_Dts: TForm_Dts;

implementation
uses Frm_ConditionSet;
{$R *.DFM}

procedure TForm_Dts.BitBtn2Click(Sender: TObject);
begin
 Close;
end;

procedure TForm_Dts.BitBtn1Click(Sender: TObject);
begin
 if DtsTemp.ConDB(Edt_HostName.Text,Edt_DbName.Text,Edt_UserName.Text,Edt_PassWord.Text) then
  begin
   pc_DtsWizads.ActivePageIndex := 1;
   DtsTemp.GetTableName(Rb_Outport.Checked,Lb_Source.Items);
  end;
end;

procedure TForm_Dts.FormCreate(Sender: TObject);
begin
 DtsTemp := DTS.Create;
 pc_DtsWizads.ActivePageIndex :=0;
end;

procedure TForm_Dts.FormDestroy(Sender: TObject);
begin
 DtsTemp.Free;
end;

procedure TForm_Dts.SpeedButton1Click(Sender: TObject);
var
 I: Integer;
begin
 Lb_Des.Items.Clear;
 for I := 0 to Lb_Source.Items.Count - 1 do
  begin
   Lb_Des.Items.Add(Lb_Source.Items.Strings[I]);
  end;
  Lb_Source.Items.Clear;
end;

procedure TForm_Dts.SpeedButton2Click(Sender: TObject);
begin
 Lb_Des.Items.Add(Lb_Source.Items.Strings[Lb_Source.ItemIndex]);
 Lb_Source.Items.Delete(Lb_Source.ItemIndex);
end;

procedure TForm_Dts.SpeedButton3Click(Sender: TObject);
begin
 Lb_Source.Items.Add(Lb_Des.Items.Strings[Lb_Des.ItemIndex]);
 Lb_Des.Items.Delete(Lb_Des.ItemIndex);
end;

procedure TForm_Dts.SpeedButton4Click(Sender: TObject);
var
 I: Integer;
begin
 for I := 0 to Lb_Des.Items.Count - 1 do
  begin
   Lb_Source.Items.Add(Lb_Des.Items.Strings[I]);
  end;
  Lb_Des.Items.Clear;
end;

procedure TForm_Dts.BitBtn3Click(Sender: TObject);
begin
 pc_DtsWizads.ActivePageIndex := 0;
end;

procedure TForm_Dts.BitBtn4Click(Sender: TObject);
var
 I: Integer;
 TimeStr: String;
begin
 if Lb_Des.Items.Count >= 1 then
  begin
   Lv_Table.Items.Clear;
   TimeStr := FormatDateTime('YYYYMMDDHHNN',Now);
   if Rb_OutPort.Checked then
    begin
     for I := 0 to Lb_Des.Items.Count - 1 do
      begin
       Lv_Table.Items.Add;
       Lv_Table.Items[I].Caption := Lb_Des.Items.Strings[I];
       Lv_Table.Items[I].SubItems.Add(Lb_Des.Items.Strings[I] + '_' + TimeStr);
       Lv_Table.Items[I].SubItems.Add('');
       Lv_Table.Items[I].SubItems.Add('');
      end;
    end
   else
    begin
     for I := 0 to Lb_Des.Items.Count - 1 do
      begin
       Lv_Table.Items.Add;
       Lv_Table.Items[I].Caption := Lb_Des.Items.Strings[I];
       Lv_Table.Items[I].SubItems.Add(Copy(Lb_Des.Items.Strings[I],1,Length(Lb_Des.Items.Strings[I]) - 13));
       Lv_Table.Items[I].SubItems.Add('');
       Lv_Table.Items[I].SubItems.Add('');
      end;
    end;
   pc_DtsWizads.ActivePageIndex := 2;
  end
 else
  begin
   Application.MessageBox('请选择要导入或导出的表名','信息提示',MB_OK+MB_ICONINFORMATION);
   Exit;
  end;
end;

procedure TForm_Dts.Lv_TableDblClick(Sender: TObject);
begin
 if (Lv_Table.Selected = nil) or (not Rb_OutPort.Checked ) then Exit;
 with TForm_CondSet.Create(Self) do
 try
  ShowModal;
 finally
  Free;
 end;
end;

procedure TForm_Dts.BitBtn7Click(Sender: TObject);
begin
 Close;
end;

procedure TForm_Dts.BitBtn8Click(Sender: TObject);
var
 I: Integer;
begin
 SetLength(DtsTemp.m_arrItem,Lv_Table.items.Count);
 for I := 0 to Lv_Table.items.Count - 1 do
  begin
   DtsTemp.m_arrItem[I,0] :=  Lv_Table.items.Item[I].Caption;
   DtsTemp.m_arrItem[I,1] := Lv_Table.items.Item[I].SubItems.Strings[0] ;
   DtsTemp.m_arrItem[I,2] := Lv_Table.items.Item[I].SubItems.Strings[1] ;
   DtsTemp.m_arrItem[I,3] := Lv_Table.items.Item[I].SubItems.Strings[2] ;
  end;
 DtsTemp.DoExe(Rb_import.Checked);
 close;
end;

procedure TForm_Dts.BitBtn6Click(Sender: TObject);
begin
 pc_DtsWizads.ActivePageIndex := 1;
end;

procedure TForm_Dts.BitBtn5Click(Sender: TObject);
begin
 Close;
end;

end.