edit.~pas

来自「通过此软件可方便的对interbase数据库进行合并」· ~PAS 代码 · 共 158 行

unit edit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, LMDBaseGraphicButton,
  LMDDrawEdge, LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,
  LMDBaseEdit, LMDCustomEdit, LMDEdit, LMDBaseLabel, LMDCustomLabel,
  LMDLabel, LMDControl, LMDBaseControl, LMDBaseGraphicControl,
  LMDGraphicControl, LMDFill, FileCtrl, StdCtrls, RzPanel,
  LMDCustomParentPanel, LMDCustomGroupBox, LMDGroupBox, wwSpeedButton,
  wwDBNavigator, wwclearpanel, Grids, Wwdbigrd, Wwdbgrid, Db, DBTables,
  Buttons, LMDCustomSpeedButton, LMDSpeedButton, DBCtrls;

type
  Teditform = class(TForm)
    RzGroupBox1: TRzGroupBox;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    FileListBox1: TFileListBox;
    Edit1: TEdit;
    FilterComboBox1: TFilterComboBox;
    LMDFill1: TLMDFill;
    LMDLabel1: TLMDLabel;
    LMDEdit1: TLMDEdit;
    LMDEdit2: TLMDEdit;
    LMDEdit3: TLMDEdit;
    LMDLabel2: TLMDLabel;
    LMDDrawEdge1: TLMDDrawEdge;
    LMDLabel3: TLMDLabel;
    Image1: TImage;
    LMDGroupBox1: TLMDGroupBox;
    LMDGroupBox2: TLMDGroupBox;
    wwDBGrid1: TwwDBGrid;
    wwDBGrid2: TwwDBGrid;
    wwDBNavigator2: TwwDBNavigator;
    wwNavButton1: TwwNavButton;
    wwNavButton2: TwwNavButton;
    wwNavButton3: TwwNavButton;
    wwNavButton4: TwwNavButton;
    wwNavButton5: TwwNavButton;
    wwNavButton6: TwwNavButton;
    wwNavButton7: TwwNavButton;
    wwNavButton8: TwwNavButton;
    wwNavButton9: TwwNavButton;
    wwNavButton10: TwwNavButton;
    wwNavButton11: TwwNavButton;
    LMDLabel4: TLMDLabel;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    wwDBNavigator1: TwwDBNavigator;
    wwNavButton12: TwwNavButton;
    wwNavButton13: TwwNavButton;
    wwNavButton14: TwwNavButton;
    wwNavButton15: TwwNavButton;
    wwNavButton16: TwwNavButton;
    wwNavButton17: TwwNavButton;
    wwNavButton18: TwwNavButton;
    wwNavButton19: TwwNavButton;
    wwNavButton20: TwwNavButton;
    wwNavButton21: TwwNavButton;
    wwNavButton22: TwwNavButton;
    procedure FileListBox1Click(Sender: TObject);
    procedure LMDEdit1Change(Sender: TObject);
    procedure LMDEdit2Change(Sender: TObject);
    procedure LMDEdit3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  editform: Teditform;

implementation

uses datmod;
{$R *.DFM}

procedure Teditform.FileListBox1Click(Sender: TObject);
var aliasparams : Tstringlist;
begin
datamodule1.Query1.close;
datamodule1.Query2.Close;
datamodule1.database3.Connected:=false;
datamodule1.session3.DeleteAlias('EDITBASE');
if edit1.Text ='*.gdb' then
begin
  AliasParams := TStringList.Create;
  try
    with AliasParams do begin
      Add('OPEN MODE=READ/WRITE');
      Add('USER NAME=SYSDBA');
      Add('ENABLE BCD=TRUE');
      Add('SERVER NAME='+filelistbox1.filename);
    end;
datamodule1.Session3.AddAlias('EDITBASE', 'INTRBASE', AliasParams);
datamodule1.database3.AliasName:='EDITBASE';
datamodule1.database3.Connected:=true;
  DataModule1.query1.SQL.Clear;
  DataModule1.query1.SQL.Add('select * from MAINDBF');
  DataModule1.query1.Open();
  DataModule1.query2.SQL.Clear;
  DataModule1.query2.SQL.Add('select * from GDJLK');
  DataModule1.query2.Open();
  finally
    AliasParams.Free;
  end;
end;
end;

procedure Teditform.LMDEdit1Change(Sender: TObject);
begin
  DataModule1.query1.Close;
  DataModule1.query1.SQL.Clear;
  DataModule1.query1.SQL.Add('select * from MAINDBF where YHDW LIKE :dw');
  DataModule1.query1.Params.Items[0].AsString:=Trim(LMDEdit1.Text)+'%';
  DataModule1.query1.Open();
  DataModule1.query2.Close;
  DataModule1.query2.SQL.Clear;
  DataModule1.query2.SQL.Add('select * from GDJLK where YHDW LIKE :dw');
  DataModule1.query2.Params.Items[0].AsString:=Trim(LMDEdit1.Text)+'%';
  DataModule1.query2.Open();
end;

procedure Teditform.LMDEdit2Change(Sender: TObject);
begin
  DataModule1.query1.Close;
  DataModule1.query1.SQL.Clear;
  DataModule1.query1.SQL.Add('select * from MAINDBF where YHBH LIKE :dw');
  DataModule1.query1.Params.Items[0].AsString:=Trim(LMDEdit2.Text)+'%';
  DataModule1.query1.Open();
  DataModule1.query2.Close;
  DataModule1.query2.SQL.Clear;
  DataModule1.query2.SQL.Add('select * from GDJLK where YHBH LIKE :dw');
  DataModule1.query2.Params.Items[0].AsString:=Trim(LMDEdit2.Text)+'%';
  DataModule1.query2.Open();
end;

procedure Teditform.LMDEdit3Change(Sender: TObject);
begin
  DataModule1.query1.Close;
  DataModule1.query1.SQL.Clear;
  DataModule1.query1.SQL.Add('select * from MAINDBF where YHXM LIKE :dw');
  DataModule1.query1.Params.Items[0].AsString:=Trim(LMDEdit3.Text)+'%';
  DataModule1.query1.Open();
  DataModule1.query2.Close;
  DataModule1.query2.SQL.Clear;
  DataModule1.query2.SQL.Add('select * from GDJLK where YHXM LIKE :dw');
  DataModule1.query2.Params.Items[0].AsString:=Trim(LMDEdit3.Text)+'%';
  DataModule1.query2.Open();
end;

end.