empleer.pas

银行学生助学贷款管理系统 随着社会的进步

unit Empleer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, StdCtrls, Buttons, jpeg, ExtCtrls, Grids, DBGrids, XPMenu;

type
  TEmpleerForm = class(TForm)
    Image1: TImage;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    people: TEdit;
    money: TEdit;
    xuyuansel: TComboBox;
    Memo1: TMemo;
    Label5: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    sumpeople: TEdit;
    summoney: TEdit;
    StringGrid1: TStringGrid;

    procedure BitBtn2Click(Sender: TObject);
    
    procedure FormShow(Sender: TObject);
    procedure xuyuanselChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EmpleerForm: TEmpleerForm;

implementation
uses md, DB;
{$R *.dfm}

const
crlf:String = chr(13)+chr(10);
var
Qstr1:string;

procedure TEmpleerForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure QueryPD(Sender:TObject;Qstr:string);
var
I,k:integer;
tempRMB:integer;
begin
k:=1;
with DataMd.ADOQuerymoney do
begin
  close;
  sql.Clear;
  sql.Add('select * from tmoney '+Qstr);
  open;
   for i:=0 to fieldcount-1 do
    begin
    (sender as TstringGrid).Cells[i,0]:=fields[i].FieldName;
    end;
 if recordcount>0 then
    begin
    tempRMB:=0;
    EmpleerForm.people.Text:=inttostr(recordcount);
    first;
      while not Eof do
        begin
           for i:=0 to fieldcount-1 do
             begin
             (sender as TstringGrid).Cells[i,k]:=fields[i].AsString;
             end;
             tempRMB:=tempRMB+strtoint(fieldbyname('贷款金额').AsString);
           next;
           k:=k+1;
      end;
      EmpleerForm.money.Text:=inttostr(tempRMB);
      EmpleerForm.Memo1.Lines.Add('学院： '+EmpleerForm.xuyuansel.Text+crlf+
                               '人数： '+EmpleerForm.people.Text+crlf+'金额： '+EmpleerForm.money.Text);
    end
    else
    showmessage('该要查询的学院没有信息');
 end;
end;



procedure TEmpleerForm.FormShow(Sender: TObject);
var
i:integer;
tempmoney:integer;
begin
   if xuyuansel.ItemIndex=0 then
   begin
        tempmoney:=0;
     with datamd.ADOQuerymoney do
     begin
        close;
        sql.Clear;
        sql.Add('select * from tmoney');
        open;
        if  recordcount>0 then
        begin
           sumpeople.Text:= inttostr(RecordCount);
           first;
           for i:=0 to recordcount-1 do
           begin
              tempmoney:=tempmoney+strtoint(fieldbyname('贷款金额').AsString);
              next;
           end;
           summoney.Text:=inttostr(tempmoney);

        end
        else
        showmessage('当前没有用户，请原谅');

     end;
   end;
end;

procedure TEmpleerForm.xuyuanselChange(Sender: TObject);
begin
   Qstr1:='';
   if (trim(xuyuansel.Text)<>'')and(trim(xuyuansel.Text)<>'东北林业大学') then
   Qstr1:='where 学院 like ''%'+Trim(xuyuansel.Text)+'%'''
   else
   Qstr1:='';
   QueryPd(StringGrid1,Qstr1);
end;
end.