unitcode.pas

老年人大学的学籍管理,主要是学费收取

unit unitcode;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, base, SUIDBCtrls, SUIButton, StdCtrls, SUIEdit, Grids, DBGridEh,
  ExtCtrls, SUIForm, DB;

type
  Tfrmunitcode = class(Tbaseform)
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtid: TsuiEdit;
    edtcode: TsuiEdit;
    edtpy: TsuiEdit;
    btnnew: TsuiButton;
    btndel: TsuiButton;
    btnedit: TsuiButton;
    btnsave: TsuiButton;
    suiDBNavigator1: TsuiDBNavigator;
    btnclose: TsuiButton;
    dsunit: TDataSource;
    procedure btncloseClick(Sender: TObject);
    procedure dsunitDataChange(Sender: TObject; Field: TField);
    procedure edtcodeChange(Sender: TObject);
    procedure btnnewClick(Sender: TObject);
    procedure btndelClick(Sender: TObject);
    procedure btneditClick(Sender: TObject);
    procedure btnsaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    editmodal:string;
    procedure iniform;
    procedure showdata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmunitcode: Tfrmunitcode;

implementation

uses dm, pub, IMCode, umain;

{$R *.dfm}

procedure Tfrmunitcode.btncloseClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure tfrmunitcode.iniform;
begin
  pub.showrecord(codedm.adqunit,'*','codeunit','id');
  btnnew.Enabled :=true;
  btndel.Enabled :=true;
  btnedit.Enabled :=true;
  btnsave.Enabled :=false;
end;

procedure tfrmunitcode.showdata;
begin
  edtid.Text:=codedm.adqunit.fieldbyname('id').AsString;
  edtcode.Text:=codedm.adqunit.fieldbyname('code').AsString;
  edtpy.Text:=codedm.adqunit.fieldbyname('py').AsString;
end;

procedure Tfrmunitcode.dsunitDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  showdata;
end;

procedure Tfrmunitcode.edtcodeChange(Sender: TObject);
begin
  inherited;
  edtpy.text:=imcode.MakeSpellCode(edtcode.Text, 2, 255);
end;

procedure Tfrmunitcode.btnnewClick(Sender: TObject);
begin
  inherited;
  btndel.Enabled :=false;
  btnedit.Enabled :=false;
  btnsave.Enabled :=true;
  edtid.Text:=pub.genid('codeunit','id');
  edtcode.Clear;
  edtpy.Clear;
  editmodal:='add';
end;

procedure Tfrmunitcode.btndelClick(Sender: TObject);
begin
  inherited;
  if codedm.adqunit.IsEmpty then
    begin
    application.MessageBox('单位性质代码表为空！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if application.MessageBox('确定要删除这条记录？','提示',mb_yesno+mb_iconquestion)=idyes then
    codedm.adqunit.Delete;
end;

procedure Tfrmunitcode.btneditClick(Sender: TObject);
begin
  inherited;
  btnnew.Enabled :=false;
  btndel.Enabled :=false;
  btnsave.Enabled :=true;
  editmodal:='edit';
end;

procedure Tfrmunitcode.btnsaveClick(Sender: TObject);
begin
  inherited;
  if trim(edtcode.Text)='' then
    begin
    application.MessageBox('信息不完整！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmmain.adc.BeginTrans;
  if editmodal='add' then
    begin
    try
      with codedm.adqunit do
        begin
        sql.Clear;
        sql.Add('insert into codeunit (code,py) values (:v1,:v2)');
        //showmessage(sql.Text);
        parameters.ParamByName('v1').Value :=edtcode.Text;
        parameters.ParamByName('v2').Value :=edtpy.Text;
        execsql;
        end;
      frmmain.adc.CommitTrans;
      application.MessageBox('记录保存成功！','提示',mb_ok+mb_iconinformation);
      iniform;
    except
      frmmain.adc.RollbackTrans;
      raise;
      application.MessageBox('记录保存失败！','警告',mb_ok+mb_iconwarning);
    end;
    end
  else
    begin
    try
      with codedm.adqunit do
        begin
        sql.Clear;
        sql.Add('update codeunit set code=:v1,py=:v2 where id='+edtid.Text);
        parameters.ParamByName('v1').Value :=edtcode.Text;
        parameters.ParamByName('v2').Value :=edtpy.Text;
        execsql;
        end;
      frmmain.adc.CommitTrans;
      application.MessageBox('记录修改成功！','提示',mb_ok+mb_iconinformation);
      iniform;
    except
      frmmain.adc.RollbackTrans;
      raise;
      application.MessageBox('记录修改失败！','警告',mb_ok+mb_iconwarning);
      iniform;
    end;
    end;
end;

procedure Tfrmunitcode.FormCreate(Sender: TObject);
begin
  inherited;
  iniform;
end;

end.