u_badcardbox.pas

人事考勤系统

unit U_badcardbox;

interface

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

type
  TF_badcardbox = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Memo1: TMemo;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    RadioGroup1: TRadioGroup;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label1: TLabel;
    Query1: TQuery;
    Label2: TLabel;
    Label3: TLabel;
    MaskEdit1: TMaskEdit;
    Label4: TLabel;
    Label5: TLabel;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    Label6: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
    flag:boolean;
    Procedure Get_yjbm;
    Procedure Get_ejbm;
  public
    { Public declarations }
    dep,exceptionclass:string;

  end;

var
  F_badcardbox: TF_badcardbox;

implementation

uses U_dm;

{$R *.DFM}

Procedure TF_badcardbox.Get_yjbm;
begin
  with Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct yjbm_name from V_yj_ej_emp ');
      open;
    end;
  Combobox1.Items.Clear;
  Query1.first;
  while not Query1.Eof do
    begin
      Combobox1.Items.Add(Query1.fieldbyname('yjbm_name').asstring);
      Query1.Next;
    end;
end;

Procedure TF_badcardbox.Get_ejbm;
begin
  if Combobox1.Text='' then exit;
  with Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select distinct ejbm_name,yjbm_name from V_yj_ej_emp where yjbm_name='+''''+combobox1.text+'''');
      open;
    end;
  combobox2.Clear;
  Query1.first;
  while not Query1.Eof do
    begin
      combobox2.Items.Add(Query1.fieldbyname('ejbm_name').asstring);
      Query1.Next;
    end;
end;

procedure TF_badcardbox.FormDestroy(Sender: TObject);
begin
  F_badcardbox:=nil;
end;

procedure TF_badcardbox.SpeedButton1Click(Sender: TObject);
begin
  Label1.caption:='