u_gsout.~pas

小型劳资管理系统,用visual basic+access编写

unit U_GSout;

interface

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

type
  TF_GSout = class(TForm)
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    MaskEdit1: TMaskEdit;
    Label3: TLabel;
    Label4: TLabel;
    MaskEdit2: TMaskEdit;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    Query1: TQuery;
    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 MaskEdit1Change(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(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:='选择出一个一级部门:';
        Get_yjdept;
      end
      else if RadioGroup1.ItemIndex=2 then
        begin
          label1.Visible:=true;
          label2.Visible:=false;
          combobox1.Visible:=true;
          edit1.Visible:=true;
          edit1.Text:='';
          label1.Caption:='选择一个二级部门:';
          Get_dept;
        end
        else
          begin
            label1.Visible:=true;
            label2.Visible:=true;
            combobox1.Visible:=false;
            edit1.Visible:=true;
            edit1.Text:='';
            Label1.caption:='输入员工工号:';
          end;
  if edit1.Visible then
   edit1.SetFocus;
end;

procedure TF_GSout.FormShow(Sender: TObject);
begin
  if RadioGroup1.ItemIndex=0 then
  combobox1.Visible:=false;
end;

procedure TF_GSout.ComboBox1Click(Sender: TObject);
begin
  Edit1.Text:=combobox1.Text;
end;

procedure TF_GSout.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key<>#13 then exit;
  if RadioGroup1.ItemIndex<>3 then exit;
  if (edit1.text<>'')and(Length(edit1.text)<>6) then begin showmessage('工号错误!'); exit;end;
  if edit1.Text='' then exit;
  with RS_DM.Q_empdata do
    begin
      close;
      sql.Clear;
      sql.Add('select * from empdata where work_num='+''''+edit1.Text+'''');
      open;
    end;
    if RS_DM.Q_empdata.RecordCount=1 then
      label2.Caption:=RS_DM.Q_empdata.fieldbyname('name').asstring
    else if RS_DM.Q_empdata.RecordCount=0 then
      begin
        Application.MessageBox('没有此员工信息!','系统提示',mb_iconstop+mb_ok);
        exit;
      end else
        begin
          Application.MessageBox('请输入日期!','系统提示',mb_iconstop+mb_ok);
          exit;
        end;
  Maskedit1.SetFocus;
end;

procedure TF_GSout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if close then exit;
   if RadioGroup1.ItemIndex<>0 then
   if Edit1.Text='' then
     begin
       showmessage('请输入工号!');
       Action:=caNone;
     end;
  if (length(TRIM(Maskedit1.Text))<>10)or(length(trim(Maskedit2.text))<>10) then
    begin
      showmessage('请输入正确的日期');
      Action:=canone;
    end;
end;

procedure TF_GSout.BitBtn2Click(Sender: TObject);
begin
  close:=true;
end;

procedure TF_GSout.MaskEdit1Change(Sender: TObject);
begin
  if Length(Trim(Maskedit1.Text))=10 then
    Maskedit2.SetFocus;
end;

procedure TF_GSout.DateTimePicker1Change(Sender: TObject);
begin
maskedit1.text:=datetostr(datetimepicker1.date);
end;

procedure TF_GSout.DateTimePicker2Change(Sender: TObject);
begin
maskedit2.Text:=datetostr(datetimepicker2.date);
end;

end.