hygl_cxhy.pas

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

unit HYGL_CXHY;

interface

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

type
  TFrmHYGL_CXHY = class(TForm)
    Panel1: TPanel;
    Label16: TLabel;
    Image1: TImage;
    Label17: TLabel;
    Panel7: TPanel;
    Label14: TLabel;
    btn_cx: TSpeedButton;
    Btn_exit: TSpeedButton;
    Edt_HYZH: TEdit;
    Pag1: TPageControl;
    TabSheet1: TTabSheet;
    DBCtrlGrid1: TDBCtrlGrid;
    TabSheet2: TTabSheet;
    Grd_hy: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit9: TDBEdit;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label2: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Panel2: TPanel;
    CkB_edit: TCheckBox;
    CkB_mh: TCheckBox;
    opt_hyzh: TRadioButton;
    opt_hymz: TRadioButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure btn_cxClick(Sender: TObject);
    procedure Btn_exitClick(Sender: TObject);
    procedure Edt_HYZHKeyPress(Sender: TObject; var Key: Char);
    procedure CkB_editClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmHYGL_CXHY: TFrmHYGL_CXHY;

implementation

uses HYGL_DModule, HYGL_main;

{$R *.dfm}

procedure TFrmHYGL_CXHY.FormCreate(Sender: TObject);
begin
  with dmd do begin
    if not Tbl_HY.active then Tbl_HY.open;
    if not Tbl_DDJL2.active then Tbl_DDJL2.open;
  end;

  Image1.Picture:=FRMHYGL_Main.IMG_LOGO.Picture;
end;

procedure TFrmHYGL_CXHY.btn_cxClick(Sender: TObject);
var
  CXZD,CXNR:string ;//查询字段,查询内容
  s1:string;
begin
  CXNR:=edt_hyzh.text;
  if CXNR='' then exit;
  if opt_hyzh.Checked then
    CXZD:='hyzh'
  else
    CXZD:='xm';
  if ckb_mh.checked then begin  //模糊查询
    S1:='Select * from 工会会员 where '+CXZD;
    S1:=s1+' like "%'+CXNR+'%"';
    with dmd.qry_hy do begin
      close;
      SQL.CLEAR;
      sql.add(s1);
      try
        open;
      except
        execsql;
      end;
    end; {with}
    pag1.ActivePageIndex:=1
  end;
  if NOT ckb_mh.checked then begin //正常查询
    if not DMD.tbl_hy.locate(CXZD,CXNR,[]) then begin
      s1:='对不起，没有找到相关记录,请检查！';
      MessageBox(application.handle,pchar(s1),'错误',mb_ICONerror+mb_ok);
    end;
    pag1.ActivePageIndex:=0;
  end;
end;

procedure TFrmHYGL_CXHY.Btn_exitClick(Sender: TObject);
begin
  close;
end;

procedure TFrmHYGL_CXHY.Edt_HYZHKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    btn_cxClick(Sender);
end;

procedure TFrmHYGL_CXHY.CkB_editClick(Sender: TObject);
begin
  DBCtrlGrid1.Enabled:=CkB_edit.Checked;
  DBEdit1.ReadOnly:=not CkB_edit.Checked;
  DBEdit2.ReadOnly:=not CkB_edit.Checked;
  DBEdit3.ReadOnly:=not CkB_edit.Checked;
  DBEdit4.ReadOnly:=not CkB_edit.Checked;
  DBEdit5.ReadOnly:=not CkB_edit.Checked;
  DBEdit6.ReadOnly:=not CkB_edit.Checked;
  DBEdit7.ReadOnly:=not CkB_edit.Checked;
  DBEdit8.ReadOnly:=not CkB_edit.Checked;
  DBEdit9.ReadOnly:=not CkB_edit.Checked;
  DBEdit10.ReadOnly:=not CkB_edit.Checked;
  DBEdit11.ReadOnly:=not CkB_edit.Checked;
  DBEdit12.ReadOnly:=not CkB_edit.Checked;
  DBEdit13.ReadOnly:=not CkB_edit.Checked;
end;

end.