editsubjectadd.pas

一套非常发好的财务管理软件,想从事此方面开发的可以借签

unit EditSubjectAdd;

interface

uses
  Windows, Graphics, Controls, Forms, SysUtils, ExtFunc,
  Dialogs, StdCtrls, ExtCtrls, SUIButton, SUIEdit,
  SUIDBCtrls, SUIURLLabel, jpeg, Classes, SUIForm, SUITabControl,
  SUIPageControl, DB, ADODB, ComCtrls, SUITreeView, SUIComboBox;

type
  TFrmEditSubjectAdd = class(TForm)
    suiForm1: TsuiForm;
    btnOK: TsuiButton;
    btnCancel: TsuiButton;
    editCode1: TsuiEdit;
    Label1: TLabel;
    Label2: TLabel;
    editCode2: TsuiEdit;
    Panel1: TPanel;
    Label5: TLabel;
    editName: TsuiEdit;
    Label6: TLabel;
    rb_J: TsuiRadioButton;
    rb_D: TsuiRadioButton;
    tq: TADOQuery;
    procedure editCode2KeyPress(Sender: TObject; var Key: Char);
    procedure editCode2Exit(Sender: TObject);
    procedure editNameChange(Sender: TObject);
    procedure editCode2Enter(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    function InputFull:Boolean;
  end;

var
  FrmEditSubjectAdd: TFrmEditSubjectAdd;
implementation

{$R *.dfm}
function TFrmEditSubjectAdd.InputFull:Boolean;
begin
  result:=true;
  if Trim(editCode1.Text)='' then result:=false;
  if (editCode2.Visible) and (Trim(editCode2.Text)='') then result:=false;
  if Trim(editName.Text)='' then result:=false;
end;

procedure TFrmEditSubjectAdd.editCode2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (Key in ['0','1','2','3','4','5','6','7','8','9']) then Key:=#0;
end;

procedure TFrmEditSubjectAdd.editCode2Exit(Sender: TObject);
begin
  if Trim(editCode2.Text)='' then
  begin
    Frm_MsgBox('系统信息','请输入科目代码。',MsgBox_OK_ERROR);
    editCode2.SetFocus;
    Exit;
  end;

  tq.Close;
  tq.SQL.Clear;
  tq.SQL.Add('select Code from #TempEditSubject where ltrim(rtrim(Code))='''+Trim(editCode1.Text)+Trim(editCode2.Text)+'''');
  tq.Open;
  if tq.RecordCount>0 then
  begin
    tq.Close;
    Frm_MsgBox('系统信息','此科目代码已经使用，请重新输入新的科目代码。',MsgBox_OK_ERROR);
    editCode2.SetFocus;
    Exit;
  end;
  tq.Close;
  btnOK.Enabled:=InputFull;
end;

procedure TFrmEditSubjectAdd.editNameChange(Sender: TObject);
begin
  btnOK.Enabled:=InputFull;
end;

procedure TFrmEditSubjectAdd.editCode2Enter(Sender: TObject);
begin
  btnOK.Enabled:=false;
end;

procedure TFrmEditSubjectAdd.FormShow(Sender: TObject);
begin
  btnOK.Enabled:=false;
end;

end.