frm_c_ksypas.pas

是一个用delphi设计的考勤系统

unit frm_c_ksypas;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, StdCtrls, Menus, ExtCtrls;

type
   Tfrm_c_ksy = class(TMyModalForm)
      GroupBox1: TGroupBox;
      cb1: TCheckBox;
      cb2: TCheckBox;
      cb3: TCheckBox;
      cb4: TCheckBox;
      cb5: TCheckBox;
      cb6: TCheckBox;
      cb7: TCheckBox;
      cb8: TCheckBox;
      procedure FormCreate(Sender: TObject);
      procedure FormShow(Sender: TObject);
   private
    { Private declarations }
   public
      CardType: integer;
    { Public declarations }
   end;

var
   frm_c_ksy: Tfrm_c_ksy;

implementation

uses DM_DataModal, UGeneralFunc;

{$R *.dfm}

procedure Tfrm_c_ksy.FormCreate(Sender: TObject);
begin
   inherited;
   with WindData.PublicQuery do
   begin
      close;
      sql.Clear;
      sql.Add(' select * from zx_s_cardtype order by klbh');
      open;
      if not eof then
      begin
         cb1.Caption := fieldbyname('klmc').asstring;
         next;
      end;
      if not eof then
      begin
         cb2.Caption := fieldbyname('klmc').asstring;
         next;
      end;
      if not eof then
      begin
         cb3.Caption := fieldbyname('klmc').asstring;
         next;
      end;
      if not eof then
      begin
         cb4.Caption := fieldbyname('klmc').asstring;
         next;
      end;
      if not eof then
      begin
         cb5.Caption := fieldbyname('klmc').asstring;
         next;
      end;
      if not eof then
      begin
         cb6.Caption := fieldbyname('klmc').asstring;
         next;
      end;
      if not eof then
      begin
         cb7.Caption := fieldbyname('klmc').asstring;
         next;
      end;
      if not eof then
         cb8.Caption := fieldbyname('klmc').asstring;
   end;
end;

procedure Tfrm_c_ksy.FormShow(Sender: TObject);
var
   sStr: string;
begin
   inherited;
   sStr := InttoBstr(CardType, 8);
   cb1.Checked := sStr[1] = '1';
   cb2.Checked := sStr[2] = '1';
   cb3.Checked := sStr[3] = '1';
   cb4.Checked := sStr[4] = '1';
   cb5.Checked := sStr[5] = '1';
   cb6.Checked := sStr[6] = '1';
   cb7.Checked := sStr[7] = '1';
   cb8.Checked := sStr[8] = '1';
end;

end.