?? shrcfid_un.pas
字號:
unit shrcfid_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm,
bsSkinCtrls, DB, ADODB, bsSkinGrids, bsDBGrids, StdCtrls, bsdbctrls;
type
Tshrcfid_frm = class(Tbase_frm)
bsSkinGroupBox4: TbsSkinGroupBox;
bsSkinDBGrid2: TbsSkinDBGrid;
bsSkinScrollBar3: TbsSkinScrollBar;
bsSkinScrollBar4: TbsSkinScrollBar;
bsSkinPanel1: TbsSkinPanel;
bsSkinSpeedButton5: TbsSkinSpeedButton;
bsSkinSpeedButton6: TbsSkinSpeedButton;
bsSkinSpeedButton7: TbsSkinSpeedButton;
bsSkinSpeedButton8: TbsSkinSpeedButton;
ds_hrc: TDataSource;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinSpeedButton19: TbsSkinSpeedButton;
bsSkinSpeedButton1: TbsSkinSpeedButton;
qhrc: TADOStoredProc;
bsSkinStdLabel2: TbsSkinDBText;
procedure bsSkinDBGrid2CellClick(Column: TbsColumn);
procedure FormCreate(Sender: TObject);
procedure bsSkinSpeedButton5Click(Sender: TObject);
procedure bsSkinSpeedButton6Click(Sender: TObject);
procedure bsSkinSpeedButton7Click(Sender: TObject);
procedure bsSkinSpeedButton8Click(Sender: TObject);
procedure bsSkinSpeedButton19Click(Sender: TObject);
procedure bsSkinSpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
shrcfid_frm: Tshrcfid_frm;
implementation
uses golb,hrxx_un,data_un,hmain_un, main_un;
{$R *.dfm}
procedure Tshrcfid_frm.bsSkinDBGrid2CellClick(Column: TbsColumn);
begin
inherited;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];
end;
procedure Tshrcfid_frm.FormCreate(Sender: TObject);
begin
inherited;
if not qhrc.Active then
qhrc.Open;
end;
procedure Tshrcfid_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
inherited;
qhrc.First;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];
end;
procedure Tshrcfid_frm.bsSkinSpeedButton6Click(Sender: TObject);
begin
inherited;
qhrc.Prior;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];
end;
procedure Tshrcfid_frm.bsSkinSpeedButton7Click(Sender: TObject);
begin
inherited;
qhrc.Next;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];
end;
procedure Tshrcfid_frm.bsSkinSpeedButton8Click(Sender: TObject);
begin
inherited;
qhrc.Last;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];
end;
procedure Tshrcfid_frm.bsSkinSpeedButton19Click(Sender: TObject);
var hrxx:Thrxx_frm;
begin
inherited;
hrxx:=Thrxx_frm.Create(owner);
//golb.hrcid:=bsSkinStdLabel2.Caption;
hrxx.bsSkinDBText1.Caption:=bsSkinStdLabel2.Caption;
hrxx.bsSkinStdLabel7.caption:=qhrc.FieldValues['fmon'];
hrxx.ShowModal;
hrxx.Free;
end;
procedure Tshrcfid_frm.bsSkinSpeedButton1Click(Sender: TObject);
begin
inherited;
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -