conedtunit.~pas

工商收费系统,主要是管理非税收收入的费用的管理

unit ConEdtUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, dxCntner, dxExEdtr, dxEdLib, Buttons, ToolWin,
  ComCtrls, StdCtrls, ExtCtrls, Mask, DBCtrls;

type
  TConEdtFrm = class(TForm)
    BaseClass: TEdit;
    EdtSetFoust: TEdit;
    CoolBar1: TCoolBar;
    SBExit: TSpeedButton;
    SBSave: TSpeedButton;
    SBAbort: TSpeedButton;
    ChBxNoCon: TdxCheckEdit;
    DSObject: TDataSource;
    AQeyObject: TADOQuery;
    pnl1: TPanel;
    adoConnMain: TADOConnection;
    lblCode: TLabel;
    dbedtID: TDBEdit;
    lblMemo: TLabel;
    procedure SBSaveClick(Sender: TObject);
    procedure SBAbortClick(Sender: TObject);
    procedure SBExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure SaveOtherData();virtual;     // 保存不能自动保存的数据
    procedure LoadOtherData();virtual;     // 装载不能自动装载的数据
  public
    { Public declarations }
    Flag:Integer;//是否修改数据1为修改
    FstrTableName,FstrSqlWhere:string;
    FstrOperaterCode,strtreetxt:string;
  end;

var
  ConEdtFrm: TConEdtFrm;

implementation


{$R *.dfm}

procedure TConEdtFrm.LoadOtherData;
begin

end;

procedure TConEdtFrm.SaveOtherData;
begin

end;

procedure TConEdtFrm.SBSaveClick(Sender: TObject);
begin
  // 保存数据
  try
    SaveOtherData;
    AQeyObject.Post;
    Flag:=1;
  except
    On E: Exception do
      begin
        Application.MessageBox('保存数据出错,请检查数据的正确性！','提示',MB_OK+MB_DefButton1+MB_IconStop+MB_ApplModal);
        Flag:=0;
        Exit;
      end; 
  end;
  // 默认的新操作
  if ChBxNoCon.Checked then tag:=3;
  try
    case tag of
    0:begin // 修改
        AQeyObject.Edit;
      end;
    1:begin // 添加
        AQeyObject.Append;
        LoadOtherData;//?
      end;
    3:begin
        Tag:=Flag;
        close;
      end
    end;
  except
    Application.MessageBox('保存数据出错,请检查数据的正确性！','提示',MB_OK+MB_DefButton1+MB_IconStop+MB_ApplModal);
  end;
end;

procedure TConEdtFrm.SBAbortClick(Sender: TObject);
begin
  try
    // 取消对数据的修改
    AQeyObject.Cancel;
    case tag of
    0:  // 修改
       AQeyObject.Edit;
    1: // 添加
       AQeyObject.Append;
    end;
    LoadOtherData;
  except
    Application.MessageBox('放弃保存数据出错！','提示',MB_OK+MB_DefButton1+MB_IconStop+MB_ApplModal);
  end;
end;

procedure TConEdtFrm.SBExitClick(Sender: TObject);
begin
  Tag:=Flag;
  close;
end;

procedure TConEdtFrm.FormShow(Sender: TObject);
begin
  Flag:=0;
  // 激活数据集
  case tag of
  0,3: begin
       AQeyObject.SQL.Text :='select * from '+ FstrTableName+ ' where 1=1 '+FstrSqlWhere;
       AQeyObject.Open;
       Self.Caption:='修改'+self.Caption;;
       //GotoDefaultRecord;
       AQeyObject.Edit;
       LoadOtherData;
       dbedtID.Enabled:=False;
       end;
  1: begin
       AQeyObject.SQL.Text :='select * from '+ FstrTableName
                            +' where 1=2';
       AQeyObject.Open;
       Self.Caption:='添加'+self.Caption;;
       AQeyObject.Append;
       LoadOtherData;
     end;
  end;
end;


end.