hygl_tj_zgdb.pas

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

unit HYGL_TJ_ZGDB;

interface

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

type
  TFrmHYGL_TJ_ZGDB = class(TForm)
    Panel1: TPanel;
    Label16: TLabel;
    Image1: TImage;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Memo1: TMemo;
    Panel7: TPanel;
    Btn_tj: TSpeedButton;
    btn_exit: TSpeedButton;
    GroupBox1: TGroupBox;
    opt_dw: TRadioButton;
    opt_nl: TRadioButton;
    opt_sf: TRadioButton;
    opt_zzmm: TRadioButton;
    opt_zc: TRadioButton;
    opt_xl: TRadioButton;
    Cmb_nl: TComboBox;
    Cmb_sf: TComboBox;
    Cmb_zzmm: TComboBox;
    Cmb_zc: TComboBox;
    Cmb_xl: TComboBox;
    Edt_dw: TEdit;
    procedure Btn_tjClick(Sender: TObject);
    procedure btn_exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmHYGL_TJ_ZGDB: TFrmHYGL_TJ_ZGDB;

implementation

uses HYGL_DModule, HYGL_main;

{$R *.dfm}

procedure TFrmHYGL_TJ_ZGDB.Btn_tjClick(Sender: TObject);
var
  s,tjmb:string;
  n:integer;
begin
  s:='';
  if (opt_dw.Checked)and(edt_dw.Text<>'') then begin
    s:='select * from 职工代表 where dw="'+edt_dw.Text+'" ';
    tjmb:='单位为 '+edt_dw.text+' 的职工代表情况';
  end;

  if (opt_nl.Checked)and(cmb_nl.Text<>'') then begin
    n:=cmb_nl.ItemIndex;
    if n=0 then s:=' nl<30 ';
    if n=1 then s:=' nl>=30 and nl<=39 ';
    if n=2 then s:=' nl>=40 and nl<=49 ';
    if n=3 then s:=' nl>50 ';
    s:='select * from 职工代表 where '+s;
    tjmb:='年龄 '+cmb_nl.text+' 的职工代表情况'
  end;

  if (opt_sf.Checked)and(cmb_sf.Text<>'') then begin
    s:='select * from 职工代表 where dblb="'+cmb_sf.Text+'" ';
    tjmb:='身份为 '+cmb_sf.text+' 的职工代表情况';
  end;

  if (opt_zzmm.Checked)and(cmb_zzmm.Text<>'') then begin
    s:='select * from 职工代表 where zzmm="'+cmb_zzmm.Text+'" ';
    tjmb:='政治面貌为 '+cmb_zzmm.text+' 的职工代表情况';
  end;
  if (opt_zc.Checked)and(cmb_zc.Text<>'') then begin
    s:='select * from 职工代表 where zclb="'+cmb_zc.Text+'" ';
    tjmb:='政治面貌为 '+cmb_zc.text+' 的职工代表情况';
  end;
  if (opt_xl.Checked)and(cmb_xl.Text<>'') then begin
    s:='select * from 职工代表 where xl="'+cmb_xl.Text+'" ';
    tjmb:='政治面貌为 '+cmb_xl.text+' 的职工代表情况';
  end;
  if s='' then exit;
  memo1.clear;
  with dmd.qry_temp do begin
    close;
    sql.clear;
    sql.Add(s);
    try
      open;
    except
      execsql;
    end;
    
    memo1.Lines.add('统计目标：'+tjmb);
    memo1.Lines.add('统计结果：共 '+inttostr(recordcount)+' 名');
  end;
end;

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

procedure TFrmHYGL_TJ_ZGDB.FormCreate(Sender: TObject);
begin
  Image1.Picture:=FRMHYGL_Main.IMG_LOGO.Picture;
end;

end.