hygl_tj_rhsj.pas

工会会员管理通用系统 数据库学习好资料 delphi编写 非常实用

unit HYGL_TJ_RHSJ;

interface

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

type
  TFrmHYGL_TJ_RHSJ = class(TForm)
    Panel1: TPanel;
    Label16: TLabel;
    Image1: TImage;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Memo1: TMemo;
    Panel7: TPanel;
    Btn_tj: TSpeedButton;
    btn_exit: TSpeedButton;
    Label17: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Edt_Y2: TMaskEdit;
    Edt_Y1: TMaskEdit;
    procedure Btn_tjClick(Sender: TObject);
    procedure btn_exitClick(Sender: TObject);
    procedure EDT_YKeyPress(Sender: TObject; var Key: Char);
    procedure EDT_MKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Edt_Y1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmHYGL_TJ_RHSJ: TFrmHYGL_TJ_RHSJ;

implementation

uses HYGL_DModule, HYGL_main;

{$R *.dfm}
procedure TFrmHYGL_TJ_RHSJ.FormCreate(Sender: TObject);
begin
  edt_Y1.Clear;
  Image1.Picture:=FRMHYGL_Main.IMG_LOGO.Picture;
end;

procedure TFrmHYGL_TJ_RHSJ.Btn_tjClick(Sender: TObject);
var
  s,tj1,TJ2:string;
begin
  memo1.clear;
  tj1:=edt_y1.text;
  tj2:=edt_y2.text;
  if (tj1='    -  -  ')or(tj2='    -  -  ') then exit;
  s:='select * from 工会会员 where CSNY>="'+TJ1+'" ' ;
  s:=s+' and CSNY<="'+TJ2+'" ' ;
  with dmd.qry_HY do begin
    close;
    sql.clear;
    sql.Add(s);
    try
      open;
    except
      execsql;
    end;
    memo1.Lines.add('统计目标：'+tj1+' 年出生的工会会员情况');
    memo1.Lines.add('统计结果：共 '+inttostr(recordcount)+' 名');
  end;
end;

procedure TFrmHYGL_TJ_RHSJ.btn_exitClick(Sender: TObject);
begin
  close;
end;

procedure TFrmHYGL_TJ_RHSJ.EDT_YKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) then begin
    Btn_tjClick(Sender);
  end;
end;

procedure TFrmHYGL_TJ_RHSJ.EDT_MKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    Btn_tjClick(Sender);
  end;

end;

procedure TFrmHYGL_TJ_RHSJ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dmd.qry_hy.close;
end;


procedure TFrmHYGL_TJ_RHSJ.Edt_Y1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Btn_tjClick(Sender);

end;

end.