?? unit8.~pas
字號:
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls, Grids, DBGrids;
type
TF_rsxz = class(TForm)
DBGrid1: TDBGrid;
Panel2: TPanel;
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
DBEdit1: TDBEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_rsxz: TF_rsxz;
implementation
uses unit1, Unit9;
{$R *.dfm}
procedure TF_rsxz.BitBtn1Click(Sender: TObject);
begin
if custom_window='c_rkd' then mainform.A_rkd.FieldByName('操作員').asstring:=F_rsxz.DBEdit1.text;
if custom_window='c_sfk' then mainform.A_sfk.FieldByName('操作員').asstring:=F_rsxz.DBEdit1.text;
if custom_window='c_ckd' then mainform.A_ckd.FieldByName('操作員').asstring:=F_rsxz.DBEdit1.text;
close;
end;
procedure TF_rsxz.BitBtn2Click(Sender: TObject);
begin
mainform.A_rs.Append;
F_rs.showmodal;
end;
procedure TF_rsxz.BitBtn3Click(Sender: TObject);
begin
mainform.A_rs.Edit;
F_rs.showmodal;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -