unitwnz.pas.~32~

初中成绩录入系统网络版(firebird) firebird下的网络编程

unit unitWNZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, ExtCtrls, StdCtrls, Buttons, DB,DBGridEhImpExp,
  ShellApi,Interpret;

type
  TfmWNZ = class(TForm)
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    btnSearch: TBitBtn;
    btnRecord: TBitBtn;
    Label1: TLabel;
    lbResult: TLabel;
    DataSource1: TDataSource;
    btnExportXLS: TBitBtn;
    SaveDialog1: TSaveDialog;
    Label2: TLabel;
    Edit1: TEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnExportXLSClick(Sender: TObject);
    procedure btnRecordClick(Sender: TObject);
    procedure btnSearchClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    Interpret:TInterpret;
    procedure setGridTitle;
  public
    { Public declarations }
  end;
implementation

uses unitDatamodule;

{$R *.dfm}

procedure TfmWNZ.FormShow(Sender: TObject);
begin
  dm.Query1.Close;
  DataSource1.DataSet:=dm.Query1;
end;

procedure TfmWNZ.btnSearchClick(Sender: TObject);
var
  i:Integer;
begin
  TryStrToInt(edit1.Text,i);
  if i=0 then
  begin
    Application.MessageBox('请输入合法分数线！','警告',MB_OK or MB_ICONERROR);
    exit;
  end;
  dm.Trans1.Active:=false;
  dm.Query1.Close;
  dm.Query1.SQL.Text:='select * from student where lqpc=0 and '+
    '(wuzhi1>'''' or wuzhi2>'''') and total>='+IntTostr(i)+
    ' order by wuzhi1 asc,wuzhi2 asc,tdf desc,yx desc';
  dm.Query1.Open;
  dm.Query1.Last;
  lbResult.Caption:=Inttostr(dm.Query1.RecordCount);
  setGridTitle;//设置Grid标题
end;

procedure TfmWNZ.btnRecordClick(Sender: TObject);
var
  lqzy:String;//录取专业
begin
  dm.Query1.First;
  dm.Trans2.Active:=false;
  while not dm.Query1.Eof do
  begin
    dm.Query2.Close;
    if dm.Query1.FieldByName('wuzhi1').AsString<>'' then
      lqzy:=dm.Query1.FieldByName('wuzhi1').AsString
    else
      lqzy:=dm.Query1.FieldByName('wuzhi2').AsString; //师范类专业优先
    dm.Query2.SQL.Text:='update student set lqpc=2'+
      ',lqzy='''+lqzy+''' where zkzh='''+
      dm.Query1.FieldByName('zkzh').AsString+'''';
    dm.Query2.ExecSQL;
    dm.Query1.Next;
  end;
  dm.Trans2.Commit;
  Application.MessageBox('招生完毕','提示',MB_OK or MB_ICONINFORMATION);
  dm.Query1.Close;
end;

procedure TfmWNZ.btnExportXLSClick(Sender: TObject);
begin
  if SaveDialog1.Execute then
  try
    saveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh1,SaveDialog1.FileName,true);
    if Application.MessageBox('导出数据成功，是否打开Excel文件？','请选择',MB_YESNO or MB_ICONINFORMATION)=ID_YES then
       ShellExecute(handle,'open',pchar(SaveDialog1.FileName),'0','0',SW_MAXIMIZE);
  except
    Application.MessageBox('发生意外，生成Excel文件失败！','警告',MB_OK or MB_ICONERROR);
  end;
end;

procedure TfmWNZ.setGridTitle;
var
  i:Integer;
begin
  for i:=0 to DBGridEh1.Columns.Count-1 do
    DBGridEh1.Columns[i].Title.Caption:=Interpret.GetTitle(DBGridEh1.Fields[i].FieldName);
end;

procedure TfmWNZ.FormCreate(Sender: TObject);
begin
  interpret:=TInterpret.Create;
end;

procedure TfmWNZ.FormDestroy(Sender: TObject);
begin
  Interpret.Free;
end;

end.