a0102conedtunit.pas

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

unit A0102ConEdtUnit;

interface

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

type
  TFrmA0102ConEdt = class(TTConEdt)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label5: TLabel;
    DBEdit7: TDBEdit;
    ADOQuery1: TADOQuery;
    lbl1: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    chkadd: TCheckBox;
    lbl2: TLabel;
    dbedt1: TDBEdit;
    lbl3: TLabel;
    dbedt2: TDBEdit;
    procedure DBEdit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure SBSaveClick(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure LoadOtherData();override;
    procedure saveOtherData();override;
    function checkOtherData():boolean;override;
  public
    { Public declarations }
  end;

var
  FrmA0102ConEdt: TFrmA0102ConEdt;

implementation
     uses  GlobalParaUnit;
{$R *.dfm}

function TFrmA0102ConEdt.checkOtherData: boolean;
var
  bakValue:Boolean;
  xhstr:string;
begin
  bakValue:=True;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  xhstr:='';
  if  tag =0 then
      if not AQeyObject.fieldbyname('序号').IsNull then
         xhstr:=' and 序号<>'+AQeyObject.fieldbyname('序号').AsString;

  //确定客户帐户是否已存在
  ADOQuery1.SQL.Text:='select 客户名称 from tc02 where 客户名称='''+ trim(DBEdit1.text)
                        +''' and 开户行=''' +  trim(DBEdit2.text) +''' and 帐号='''+trim(DBEdit3.text) +''''+xhstr;
  ADOQuery1.Open;
  if not ADOQuery1.IsEmpty then
  begin
      Application.MessageBox('客户账户中已存在当前账户，请检查帐户信息是否填写正确！','错误框',mb_iconstop);
      ADOQuery1.Close;
      DBEdit1.SetFocus;
      bakValue:=False;
  end;
  result:=bakValue;
end;

procedure TFrmA0102ConEdt.DBEdit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key=13 then
     SBsave.Click;
end;

procedure TFrmA0102ConEdt.FormShow(Sender: TObject);
begin
  inherited;
  if tag=1 then
   DBEdit7.Text:=gstrOperaterCode;
end;

procedure TFrmA0102ConEdt.LoadOtherData;
begin
  inherited;

end;

procedure TFrmA0102ConEdt.saveOtherData;
begin
  //确定公司帐户是否已存在
  if chkadd.Checked then
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text:='select 公司名称 from tc03 where 公司名称='''+ trim(DBEdit1.text)
                        +''' and 开户行=''' +  trim(DBEdit2.text) +''' and 帐号='''+trim(DBEdit3.text) +'''';
    ADOQuery1.Open;
    if ADOQuery1.IsEmpty then
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text:='insert into tc03 (公司名称,开户行,帐号,助记码,省份,市县,操作员编码) values ('''
                          +trim(DBEdit1.text)+''','''+trim(DBEdit2.text)+''','''+trim(DBEdit3.text)+''','''
                          +trim(DBEdit4.text)+''','''+trim(DBEdit5.text)+''','''+trim(DBEdit6.text)+''','''
                          +trim(DBEdit7.text)+''')';
      ADOQuery1.ExecSQL;
    end
    else
    begin
      Application.MessageBox('公司账户中已存在当前账户，确定后将只保存到客户帐户中！','错误框',mb_iconstop);
      ADOQuery1.Close;
    end;
  end;

  inherited;

end;

procedure TFrmA0102ConEdt.SBSaveClick(Sender: TObject);
begin
  if (trim(DBEdit1.text)='') or (trim(DBEdit2.text)='') or (trim(DBEdit3.text)='') or (trim(DBEdit7.text)='') then
     begin
       Application.MessageBox('打 * 的为必填项，请填写完整后再保存!','错误框',mb_iconstop);
       Exit;
     end;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select * from TC00 where 操作员编码='''+trim(DBEdit7.Text)+'''';
  ADOQuery1.Open;
  if ADOQuery1.RecNo<0 then
  begin
     Application.MessageBox('您输入的操作员编码无效!','错误框',mb_iconstop);
     exit;
  end;
     inherited;
end;

end.