oldstu.pas

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

unit oldstu;

interface

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

type
  Tfrmoldstu = class(Tbaseform)
    suiPanel2: TsuiPanel;
    suiDBNavigator1: TsuiDBNavigator;
    btnmoney: TsuiButton;
    btnfind: TsuiButton;
    btnrefresh: TsuiButton;
    btnjiao: TsuiButton;
    btnwei: TsuiButton;
    dgstu: TDBGridEh;
    suiPanel1: TsuiPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    edtid: TsuiEdit;
    edtname: TsuiEdit;
    edtdep: TsuiEdit;
    edtmajor: TsuiEdit;
    edtgrade: TsuiEdit;
    edtclass: TsuiEdit;
    adqstu: TADOQuery;
    dsstu: TDataSource;
    procedure btnfindClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dsstuDataChange(Sender: TObject; Field: TField);
    procedure btnrefreshClick(Sender: TObject);
    procedure btnjiaoClick(Sender: TObject);
    procedure btnweiClick(Sender: TObject);
    procedure btnmoneyClick(Sender: TObject);
  private
    procedure showdata;
    { Private declarations }
  public
    id:string;
    { Public declarations }
  end;

var
  frmoldstu: Tfrmoldstu;

implementation

uses money, oldstufind, pub, umain, oldstumoney;

{$R *.dfm}

procedure tfrmoldstu.showdata;
begin
  edtid.Text:=adqstu.fieldbyname('stuid').AsString;
  edtname.Text:=adqstu.fieldbyname('stuname').AsString;
  edtdep.Text:=adqstu.fieldbyname('dep').AsString;
  edtmajor.Text:=adqstu.fieldbyname('major').AsString;
  edtgrade.Text:=adqstu.fieldbyname('grade').AsString;
  edtclass.Text:=adqstu.fieldbyname('class').AsString;
end;

procedure Tfrmoldstu.btnfindClick(Sender: TObject);
begin
  inherited;
  frmoldstufind:=tfrmoldstufind.Create(nil);
  frmoldstufind.ShowModal;
end;

procedure Tfrmoldstu.FormCreate(Sender: TObject);
begin
  inherited;
  pub.showrecord(adqstu,'*','oldstu','id');
end;

procedure Tfrmoldstu.dsstuDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  showdata;
end;

procedure Tfrmoldstu.btnrefreshClick(Sender: TObject);
begin
  inherited;
  pub.showrecord(adqstu,'*','oldstu','id');
end;

procedure Tfrmoldstu.btnjiaoClick(Sender: TObject);
begin
  inherited;
  pub.showrecord(adqstu,'*','oldstu where status=1','id');
end;

procedure Tfrmoldstu.btnweiClick(Sender: TObject);
begin
  inherited; 
  pub.showrecord(adqstu,'*','oldstu where status=0','id');
end;

procedure Tfrmoldstu.btnmoneyClick(Sender: TObject);
begin
  inherited;
  if adqstu.IsEmpty then
    begin
    application.MessageBox('请选择要交费的学生！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  if dgstu.Fields[8].AsInteger =1 then
    begin
    application.MessageBox('该学生已交费！','提示',mb_ok+mb_iconinformation);
    exit;
    end;
  id:=dgstu.Fields[0].AsString;
  frmoldstumoney:=tfrmoldstumoney.Create(nil);
  frmoldstumoney.ShowModal;
end;

end.