u_gsout.pas

人事考勤系统

unit U_GSout;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Mask, Db, DBTables;

type
  TF_GSout = class(TForm)
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    MaskEdit1: TMaskEdit;
    Label3: TLabel;
    Label4: TLabel;
    MaskEdit2: TMaskEdit;
    Query1: TQuery;
    BitBtn3: TBitBtn;
    procedure FormDestroy(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
  private
    { Private declarations }
    close:boolean;
    Procedure Get_yjdept;
    Procedure Get_dept;
  public
    { Public declarations }
  end;

var
  F_GSout: TF_GSout;

implementation

uses U_dm, U_RS_DM;

{$R *.DFM}


procedure TF_GSout.Get_yjdept();
begin
  combobox1.Items.Clear;
  RS_DM.T_yjbm.Open;
  RS_DM.T_yjbm.First;
  while Not RS_DM.T_yjbm.Eof do
    begin
      combobox1.Items.Add(RS_DM.T_yjbm.fieldbyname('yjbm_name').asstring);
      RS_DM.T_yjbm.Next;
    end;
end;


procedure TF_GSout.Get_dept();
begin
  combobox1.Items.Clear;
  Query1.Open;
  Query1.First;
  while Not Query1.Eof do
    begin
      combobox1.Items.Add(Query1.fieldbyname('ejbm_name').asstring);
      Query1.Next;
    end;
end;


procedure TF_GSout.FormDestroy(Sender: TObject);
begin
  F_GSout:=nil;
end;

procedure TF_GSout.RadioGroup1Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex=0 then
    begin
      label1.Visible:=false;
      label2.Visible:=false;
      combobox1.Visible:=false;
      edit1.Visible:=false;
    end
    else if RadioGroup1.ItemIndex=1 then
      begin
        label1.Visible:=true;
        label2.Visible:=false;
        combobox1.Visible:=true;
        edit1.Visible:=true;
        edit1.Text:='';
        label1.Caption:='匡拒璶块