artcode.pas

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

unit artcode;

interface

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

type
  Tfrmartcode = class(Tbaseform)
    dgart: 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;
    dsart: TDataSource;
    procedure btncloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnnewClick(Sender: TObject);
    procedure edtcodeChange(Sender: TObject);
    procedure dsartDataChange(Sender: TObject; Field: TField);
    procedure btneditClick(Sender: TObject);
    procedure btnsaveClick(Sender: TObject);
    procedure btndelClick(Sender: TObject);
  private
    editmodal:string;
    procedure showdata;
    procedure iniform;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmartcode: Tfrmartcode;

implementation

uses dm, pub, IMCode, umain;

{$R *.dfm}

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

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

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

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

procedure tfrmartcode.showdata;
begin
  edtid.Text:=dm.codedm.adqart.Fields[0].AsString;
  edtcode.Text:=codedm.adqart.Fields[1].AsString;
  edtpy.Text:=codedm.adqart.Fields[2].AsString;
end;

procedure Tfrmartcode.dsartDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  showdata;
end;

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

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

procedure Tfrmartcode.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.adqart do
        begin
        sql.Clear;
        sql.Add('insert into codeart (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.adqart do
        begin
        sql.Clear;
        sql.Add('update codeart 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 Tfrmartcode.btndelClick(Sender: TObject);
begin
  inherited;
  if codedm.adqart.IsEmpty then
    begin
    application.MessageBox('艺术团体表为空！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if application.MessageBox('确定要删除这条记录？','提示',mb_yesno+mb_iconquestion)=idyes then
    codedm.adqart.Delete;
end;

end.