jiaofei.pas

一个简单的学生费用管理系统

unit jiaofei;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Mask, DBCtrls, DB, ADODB,
  Buttons, Menus;

type
  Tcxjf = class(TForm)
    GroupBox2: TGroupBox;
    DataSource1: TDataSource;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    student_T: TADOTable;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    student_Txh: TWideStringField;
    student_Txm: TWideStringField;
    student_Tpy: TWideStringField;
    student_Txb: TWideStringField;
    student_Tbjm: TWideStringField;
    student_Tyj: TIntegerField;
    student_Tsj: TIntegerField;
    student_Tqj: TIntegerField;
    ComboBox1: TComboBox;
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure jfenable;
  end;

var
  cxjf: Tcxjf;
implementation

uses zhixingjf, DM, Share;

{$R *.dfm}

procedure Tcxjf.jfenable;
begin
  if student_T.FieldValues['qj']<>0 then
    begin
      button1.Enabled:=true;
      //n1.Enabled:=true;
    end
  else
    begin
      button1.Enabled:=false;
      //n1.Enabled:=false;
    end;
end;
procedure Tcxjf.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tcxjf.ComboBox1Click(Sender: TObject);

begin
   case ComboBox1.ItemIndex of
      0:
         begin
           Label1.Caption:='请输入学号：';
           label1.font.Color:=clWindowText;
           edit1.Enabled:=true;
           label1.FocusControl:=edit1;

         end;
      1:
         begin
           Label1.Caption:='请输入姓名：';
           label1.font.Color:=clWindowText;
           edit1.Enabled:=true;
           label1.FocusControl:=edit1;
           
         end;
      2:
         begin
           label1.Caption:='请输入拼音： ' ;
           label1.font.Color:=clWindowText;
           edit1.Enabled:=true;
           label1.FocusControl:=edit1;

         end;
      3:
         begin
           label1.Caption:='请输入班级名：';
           label1.font.Color:=clWindowText;
           edit1.Enabled:=true;
         end;
      end;
end;

procedure Tcxjf.BitBtn1Click(Sender: TObject);

begin
  case ComboBox1.ItemIndex of
      0:
         begin

         if edit1.Text='' then showmessage('请输入查询条件！')
         else
           begin
             student_t.Filtered:=false;
             student_T.Locate('xh',trim(edit1.Text),[]);
             DBGrid1.SetFocus;
             if student_t.FieldByName('xh').value<>trim(edit1.text)  then
               showmessage('查询无此记录')
             else
               jfenable;
           end;

         end;
      1:
         begin
         student_t.Filtered:=false;
          if edit1.Text='' then showmessage('请输入查询条件！')
          else
          with student_t do
           begin
           student_t.filter:= 'xm='+QuotedStr(edit1.text);
           student_t.Filtered:=true;
           if student_t.RecordCount=0 then showmessage('查询无此记录');
           end;


         end;
      2:
         begin
           student_t.Filtered:=false;
           if edit1.Text='' then
              showmessage('请输入查询条件！')
           else
              with student_t do
                begin
                  student_t.filter:= 'py='+QuotedStr(edit1.text);
                  student_t.Filtered:=true;
                  if student_t.RecordCount=0 then
                     showmessage('查询无此记录')
                  else
                     jfenable;
                end ;
         end;
      3:
        begin
          student_t.Filtered:=false;
          if edit1.Text='' then
             showmessage('请输入查询条件！')
          else
            with student_t do
              begin
                student_t.filter:= 'bjm='+QuotedStr(edit1.text);
                student_t.Filtered:=true;
                if student_t.RecordCount=0 then
                   showmessage('查询无此记录')
                else
                  jfenable;
              end;
        end;
      end;
end;

procedure Tcxjf.Button1Click(Sender: TObject);
begin
     XH:=student_T.FieldValues['xh'];
     XM:=student_T.FieldValues['xm'];
     BJM:=student_T.FieldValues['bjm'];
     form3:=tform3.Create(nil);
     try
       form3.Caption:=XM+'交费';
       form3.ShowModal;
     finally
       form3.Free;
     end;

end;

procedure Tcxjf.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then BitBtn1Click(BitBtn1);
end;

procedure Tcxjf.FormCreate(Sender: TObject);
begin
  student_T.Active:=true;
  button1.Enabled:=false;
  //n1.Enabled:=false;
  jfenable;
end;
procedure Tcxjf.N1Click(Sender: TObject);
begin
   Button1Click(Button1);
end;

procedure Tcxjf.DBGrid1CellClick(Column: TColumn);
begin
  jfenable;
end;

end.