usetup.pas

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

unit uSetup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Buttons, Db, DBTables, wwdblook, Grids,
  Wwdbigrd, Wwdbgrid, Wwquery, Wwdatsrc, Mask, wwdbedit, Wwdotdot, Wwdbcomb;

type
  TfrmSetup = class(TForm)
    Panel1: TPanel;
    PageControl2: TPageControl;
    tabField: TTabSheet;
    btnClose: TBitBtn;
    wwDataSource1: TwwDataSource;
    wwQuery1: TwwQuery;
    wwDataSource2: TwwDataSource;
    wwQuery2: TwwQuery;
    UpdateSQL2: TUpdateSQL;
    wwDBGrid1: TwwDBGrid;
    Database1: TDatabase;
    wwQuery1TID: TFloatField;
    wwQuery1BM: TStringField;
    wwQuery1ZS: TStringField;
    btnRedo: TSpeedButton;
    btnUndo: TSpeedButton;
    wwQuery2ID: TFloatField;
    wwQuery2TID: TFloatField;
    wwQuery2ZDMC: TStringField;
    wwQuery2ZDZS: TStringField;
    wwQuery2LX: TStringField;
    wwQuery2CD: TFloatField;
    wwQuery2JD: TFloatField;
    wwQuery2YT: TStringField;
    wwQuery2KJX: TStringField;
    wwQuery2XSSX: TFloatField;
    wwDBComboBoxQX: TwwDBComboBox;
    wwDBComboBoxKJ: TwwDBComboBox;
    wwDBComboBoxLX: TwwDBComboBox;
    btnRefresh: TSpeedButton;
    ComboBox1: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure btnRedoClick(Sender: TObject);
    procedure btnUndoClick(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Change(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
    procedure wwDBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure wwDBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure wwDBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure wwDBGrid1EndDrag(Sender, Target: TObject; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSetup: TfrmSetup;

implementation

{$R *.DFM}

procedure TfrmSetup.FormShow(Sender: TObject);
begin
  ComboBox1.Items.Clear;

//取得数据表信息
  wwQuery1.SQL.Clear;
  wwQuery1.SQL.Add('select * from tSYS');
  wwQuery1.Open;
  wwQuery1.First;
  while not wwQuery1.Eof do
  begin
    ComboBox1.Items.Add(wwQuery1.FieldByName('ZS').AsString);
    wwQuery1.Next;
  end;
  wwQuery1.First;
  ComboBox1.ItemIndex := 0;

//打开数据库
  wwQuery2.Open;
end;

procedure TfrmSetup.btnCloseClick(Sender: TObject);
begin
  Close;
end;

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

procedure TfrmSetup.btnRedoClick(Sender: TObject);
begin
//更新记录
  with wwQuery2 do
  begin
    Database1.StartTransaction;
    try
      ApplyUpdates; {try to write the updates to the database};
      Database1.Commit; {on success, commit the changes};
    except
      Database1.Rollback; {on failure, undo the changes};
      raise; {raise the exception to prevent a call to CommitUpdates!}
    end;
    CommitUpdates; {on success, clear the cache}
  end;

end;

procedure TfrmSetup.btnUndoClick(Sender: TObject);
begin
  with wwQuery2 do
  begin
    CancelUpdates;
  end;
end;

procedure TfrmSetup.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  procedure pChangeXSSX(var iNextRecord, iPriorRecord: Integer);
  var
    i: Integer; //as a intermedia
  begin
    i := iNextRecord;
    iNextRecord := iPriorRecord;
    iPriorRecord := i;
  end;
begin
//按上键，记录与上一条记录交换XSSX字段值
end;

procedure TfrmSetup.ComboBox1Change(Sender: TObject);
begin
  wwQuery1.First;
  wwQuery1.MoveBy(ComboBox1.ItemIndex);
end;

procedure TfrmSetup.btnRefreshClick(Sender: TObject);
begin
  wwQuery2.Close;
  wwQuery2.Open;
end;

procedure TfrmSetup.wwDBGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//开始拖拉
  if Button = mbLeft then { drag only if left button pressed }
    with Sender as TwwDBGrid do
    begin
//      if ItemAtPos(Point(X, Y), True) >= 0 then { is there an item here? }
      BeginDrag(False); { if so, drag it }
    end;
end;

procedure TfrmSetup.wwDBGrid1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  wwDBGrid1.
  if Source is TwwDBGrid then
    Accept := True
  else
    Accept := False;
end;

procedure TfrmSetup.wwDBGrid1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if Source is TwwDBGrid then
    ShowMessage('You get it');
end;

procedure TfrmSetup.wwDBGrid1EndDrag(Sender, Target: TObject; X,
  Y: Integer);
begin
  if Target <> nil then
    ShowMessage('You send it');
end;

end.