?? u_kqgl.pas
字號:
unit U_KQGL;
interface
uses
Windows,shellApi, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,ComCtrls, Db, DBTables, Grids, DBGrids, Menus, ExtCtrls,
Buttons, Mask;
type
TF_KQGL = class(TForm)
Q_kqdata: TQuery;
Q_timestable: TQuery;
StoredProc1: TStoredProc;
Q_temp: TQuery;
Query1: TQuery;
DBGrid1: TDBGrid;
DS_SBdata: TDataSource;
Query2: TQuery;
Q_tempkqdata: TQuery;
Q_timestable_temp: TQuery;
MainMenu1: TMainMenu;
data: TMenuItem;
N1: TMenuItem;
read: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N14: TMenuItem;
StatusBar1: TStatusBar;
Q_sbdata: TQuery;
Panel1: TPanel;
MaskEdit1: TMaskEdit;
Label1: TLabel;
SpeedButton1: TSpeedButton;
Label2: TLabel;
SpeedButton2: TSpeedButton;
RadioGroup1: TRadioGroup;
Edit1: TEdit;
Label3: TLabel;
SpeedButton3: TSpeedButton;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N42: TMenuItem;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Panel2: TPanel;
ListBox1: TListBox;
Label4: TLabel;
N15: TMenuItem;
N43: TMenuItem;
Label5: TLabel;
SpeedButton4: TSpeedButton;
CheckBox1: TCheckBox;
MaskEdit2: TMaskEdit;
SpeedButton5: TSpeedButton;
N13: TMenuItem;
DBGrid2: TDBGrid;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
Label10: TLabel;
DS_data: TDataSource;
Q_data: TQuery;
Q_datamachine_num: TStringField;
Q_datacard_num: TStringField;
Q_datadate_YMD: TStringField;
Q_datadate_T: TStringField;
Q_datacheck_char: TStringField;
Q_dataend_char: TStringField;
Q_dataempid: TIntegerField;
Label11: TLabel;
DBGrid3: TDBGrid;
DataSource1: TDataSource;
BitBtn5: TBitBtn;
N19: TMenuItem;
MaskEdit3: TMaskEdit;
MaskEdit4: TMaskEdit;
Label13: TLabel;
CheckBox2: TCheckBox;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
PopupMenu1: TPopupMenu;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
Bevel1: TBevel;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
N26: TMenuItem;
N27: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure RadioGroup1Click(Sender: TObject);
procedure N42Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure MaskEdit1DblClick(Sender: TObject);
procedure MaskEdit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn2Click(Sender: TObject);
procedure DS_SBdataStateChange(Sender: TObject);
procedure N43Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SpeedButton4Click(Sender: TObject);
procedure MaskEdit2DblClick(Sender: TObject);
procedure MaskEdit2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure N13Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure DS_SBdataDataChange(Sender: TObject; Field: TField);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
procedure MaskEdit1Change(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure ComboBox3Click(Sender: TObject);
procedure ComboBox4Click(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure MaskEdit3Change(Sender: TObject);
procedure MaskEdit3DblClick(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid1CellClick(Column: TColumn);
procedure N26Click(Sender: TObject);
procedure N27Click(Sender: TObject);
private
{ Private declarations }
starttime,sql,cardnum,workday,date,worknum,name,readcarddate:string;//sqlい鑼陪ボ缽盽
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -