classset.pas

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

unit classset;

interface

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

type
  Tfrmclassset = class(Tbaseform)
    suiPageControl1: TsuiPageControl;
    suiTabSheet1: TsuiTabSheet;
    DBGridEh1: TDBGridEh;
    edtgrade: TsuiEdit;
    btnnew: TsuiButton;
    btndel: TsuiButton;
    suiTabSheet2: TsuiTabSheet;
    DBGridEh2: TDBGridEh;
    edtclass: TsuiEdit;
    cbxgrade: TsuiComboBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    btnclose: TsuiButton;
    dsgrade: TDataSource;
    dsclass: TDataSource;
    procedure btncloseClick(Sender: TObject);
    procedure btnnewClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btndelClick(Sender: TObject);
    procedure suiTabSheet2Enter(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    procedure iniform;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmclassset: Tfrmclassset;

implementation

uses dm, pub, umain, adodb;

{$R *.dfm}

procedure tfrmclassset.iniform;
begin
  edtclass.Clear;
  edtgrade.Clear;
  cbxgrade.ItemIndex:=-1;
end;

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

procedure Tfrmclassset.btnnewClick(Sender: TObject);
begin
  inherited;
  if trim(edtgrade.Text)='' then
    begin
    application.MessageBox('请输入年级名称！','提示',mb_ok+mb_iconinformation);
    edtgrade.SetFocus;
    exit;
    end;
  frmmain.adc.BeginTrans;
  try
    with codedm.adqdep do
      begin
      sql.Clear;
      sql.Add('insert into grade (grade) values (:v1)');
      parameters.ParamByName('v1').Value :=trim(edtgrade.Text);
      execsql;
      end;
    frmmain.adc.CommitTrans;
    application.MessageBox('记录保存成功！','提示',mb_ok+mb_iconinformation);
    pub.showrecord(codedm.adqgrade,'*','grade','id');
    iniform;
  except
    frmmain.adc.RollbackTrans;
    raise;
    application.MessageBox('记录保存失败！','警告',mb_ok+mb_iconwarning);
    pub.showrecord(codedm.adqgrade,'*','grade','id');
  end;
end;

procedure Tfrmclassset.FormCreate(Sender: TObject);
begin
  inherited;
  pub.showrecord(codedm.adqgrade,'*','grade','id');
  pub.showrecord(codedm.adqclass,'*','class','id');
end;

procedure Tfrmclassset.btndelClick(Sender: TObject);
begin
  inherited;
  if codedm.adqgrade.IsEmpty then
    begin
    application.MessageBox('年级信息表为空！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if application.MessageBox('确定要删除这条记录？','提示',mb_yesno+mb_iconquestion)=idyes then
    codedm.adqgrade.Delete;
end;

procedure Tfrmclassset.suiTabSheet2Enter(Sender: TObject);
var tmp:tadoquery;
begin
  inherited;
  cbxgrade.Clear;
  tmp:=tadoquery.Create(nil);
  tmp.ConnectionString:=frmmain.adc.ConnectionString;
  try
    pub.showrecord(tmp,'*','grade','id');
    while not tmp.Eof do
      begin
      cbxgrade.Items.Add(tmp.fieldbyname('grade').AsString);
      tmp.Next;
      end;
  finally
    tmp.Free;
  end;
end;

procedure Tfrmclassset.suiButton1Click(Sender: TObject);
begin
  inherited;
  if (trim(edtclass.Text)='')or(cbxgrade.Text='') then
    begin
    application.MessageBox('信息不完整！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  frmmain.adc.BeginTrans;
  try
    with codedm.adqmajor do
      begin
      sql.Clear;
      sql.Add('insert into class (grade,class) values (:v1,:v2)');
      parameters.ParamByName('v1').Value :=cbxgrade.Text;
      parameters.ParamByName('v2').Value :=trim(edtclass.Text);
      execsql;
      end;
    frmmain.adc.CommitTrans;
    application.MessageBox('记录保存成功！','提示',mb_ok+mb_iconinformation);
    pub.showrecord(codedm.adqclass,'*','class','id');
    iniform;
  except
    frmmain.adc.RollbackTrans;
    raise;
    application.MessageBox('记录保存失败！','提示',mb_ok+mb_iconwarning);
    pub.showrecord(codedm.adqclass,'*','class','id');
  end;
end;

procedure Tfrmclassset.suiButton2Click(Sender: TObject);
begin
  inherited;
  if codedm.adqclass.IsEmpty then
    begin
    application.MessageBox('班级信息表为空！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if application.MessageBox('确定要删除这条记录？','提示',mb_yesno+mb_iconquestion)=idyes then
    codedm.adqclass.Delete;
end;

end.