form_mianqianka.pas

pasa人力资源考勤管理系统

unit form_mianqianka;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DBCtrls, Mask, Buttons,datamol, Db, ADODB, Grids,
  DBGrids, ComCtrls, ppBands, ppCtrls, ppPrnabl, ppClass, ppCache, ppComm,
  ppRelatv, ppProd, ppReport;

type
  Tformmianqianka = class(TForm)
    Panel1: TPanel;
    Label26: TLabel;
    Label27: TLabel;
    dsmianqianka: TDataSource;
    DBNavigator1: TDBNavigator;
    personal: TADOQuery;
    DBGrid1: TDBGrid;
    adomqk: TADODataSet;
    adomqkworkno: TStringField;
    adomqkcardno: TStringField;
    adomqkworkname: TStringField;
    adomqkenddatetime: TStringField;
    adomqktimes: TBCDField;
    adomqktype: TStringField;
    adomqkoperation: TStringField;
    adomqkdate_i: TDateTimeField;
    adomqkremark: TStringField;
    adomqkprocess: TBooleanField;
    Panel4: TPanel;
    ListBox1: TListBox;
    Panel5: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    Button5: TSpeedButton;
    Label6: TLabel;
    SpeedButton3: TSpeedButton;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit6: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit3: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    Panel3: TPanel;
    DBComboBox4: TDBComboBox;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    StatusBar1: TStatusBar;
    DateTimePicker1: TDateTimePicker;
    Panel6: TPanel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label18: TLabel;
    DBEdit8: TDBEdit;
    Panel2: TPanel;
    Label7: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    ppReport6: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppLabel76: TppLabel;
    ppLabel83: TppLabel;
    ppLabel85: TppLabel;
    ppLabel95: TppLabel;
    ppLabel94: TppLabel;
    ppDBText68: TppDBText;
    ppDBText69: TppDBText;
    ppLabel135: TppLabel;
    ppDetailBand3: TppDetailBand;
    ppLabel77: TppLabel;
    ppLabel78: TppLabel;
    ppLabel79: TppLabel;
    ppLabel80: TppLabel;
    ppLabel81: TppLabel;
    ppDBText40: TppDBText;
    ppDBText41: TppDBText;
    ppDBText42: TppDBText;
    ppDBText56: TppDBText;
    ppDBText58: TppDBText;
    ppLabel82: TppLabel;
    ppLabel84: TppLabel;
    ppLabel86: TppLabel;
    ppLabel87: TppLabel;
    ppDBText59: TppDBText;
    ppLabel88: TppLabel;
    ppLabel89: TppLabel;
    ppLabel90: TppLabel;
    ppLabel91: TppLabel;
    ppLabel92: TppLabel;
    ppDBText60: TppDBText;
    ppDBText61: TppDBText;
    ppDBText62: TppDBText;
    ppDBText63: TppDBText;
    ppDBText64: TppDBText;
    ppDBText65: TppDBText;
    ppDBText66: TppDBText;
    ppLabel93: TppLabel;
    ppLabel96: TppLabel;
    ppLabel97: TppLabel;
    ppDBText67: TppDBText;
    ppDBText70: TppDBText;
    ppDBText71: TppDBText;
    ppLabel98: TppLabel;
    ppDBText72: TppDBText;
    ppLabel99: TppLabel;
    ppLabel100: TppLabel;
    ppLabel101: TppLabel;
    ppLabel102: TppLabel;
    ppLabel103: TppLabel;
    ppLabel104: TppLabel;
    ppLabel105: TppLabel;
    ppDBText73: TppDBText;
    ppDBText74: TppDBText;
    ppDBText75: TppDBText;
    ppDBText76: TppDBText;
    ppDBText77: TppDBText;
    ppDBText78: TppDBText;
    ppLabel106: TppLabel;
    ppLabel107: TppLabel;
    ppLabel108: TppLabel;
    ppLabel109: TppLabel;
    ppLabel110: TppLabel;
    ppLabel111: TppLabel;
    ppLabel112: TppLabel;
    ppDBText79: TppDBText;
    ppDBText80: TppDBText;
    ppDBText81: TppDBText;
    ppDBText82: TppDBText;
    ppDBText83: TppDBText;
    ppDBText84: TppDBText;
    ppLabel113: TppLabel;
    ppLabel114: TppLabel;
    ppLabel115: TppLabel;
    ppLabel116: TppLabel;
    ppLabel117: TppLabel;
    ppLabel118: TppLabel;
    ppLabel119: TppLabel;
    ppLabel120: TppLabel;
    ppLabel121: TppLabel;
    ppLabel122: TppLabel;
    ppLabel123: TppLabel;
    ppDBText85: TppDBText;
    ppDBText86: TppDBText;
    ppDBText87: TppDBText;
    ppDBText88: TppDBText;
    ppDBText89: TppDBText;
    ppDBText90: TppDBText;
    ppDBText91: TppDBText;
    ppDBText92: TppDBText;
    ppDBText93: TppDBText;
    ppDBText94: TppDBText;
    ppLabel124: TppLabel;
    ppLabel125: TppLabel;
    ppLabel126: TppLabel;
    ppLabel127: TppLabel;
    ppLabel128: TppLabel;
    ppLabel129: TppLabel;
    ppLabel130: TppLabel;
    ppDBText95: TppDBText;
    ppDBText96: TppDBText;
    ppDBText113: TppDBText;
    ppDBText115: TppDBText;
    ppDBText116: TppDBText;
    ppDBText117: TppDBText;
    ppLabel131: TppLabel;
    ppDBText118: TppDBText;
    ppLabel132: TppLabel;
    ppDBText119: TppDBText;
    ppLabel133: TppLabel;
    ppDBText120: TppDBText;
    ppLabel134: TppLabel;
    ppLine2: TppLine;
    ppFooterBand3: TppFooterBand;
    adomqkstartdatetime: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox1Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure adomqkBeforePost(DataSet: TDataSet);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure DBEdit3Exit(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formmianqianka: Tformmianqianka;
  changsign:integer=0;
  changsign1:integer=0;

implementation

{$R *.DFM}

procedure Tformmianqianka.FormCreate(Sender: TObject);
begin
  adomqk.Open;
  combobox1.Clear;
  dbcombobox4.clear;
  personal.Close;
  personal.SQL.text:='select workno,cardno,name,mankind from per24010 where leave=0 and brushcard=0 order by workno ';
  personal.Open;
  while not personal.eof do
  begin
    listbox1.Items.Add(personal.fieldbyname('workno').value+'--'+personal.fieldbyname('name').value+'//'+personal.fieldbyname('mankind').value);
    dbcombobox4.items.add(personal.fieldbyname('name').value);
    personal.Next;
  end;
  personal.Close;
  personal.SQL.Clear;
  personal.SQL.text:='select dept from pub05010 order by dept';
  personal.Open;
  while not personal.eof do
  begin
     combobox1.Items.Add(personal.fieldbyname('dept').value);
     personal.next;
  end;
  personal.close;