?? djyc_un.pas
字號:
unit djyc_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, sjrcbase, ADODB, DB, ActnList, bsMessages, bsSkinData,
BusinessSkinForm, bsSkinCtrls, bsSkinGrids, bsDBGrids, bsdbctrls,
StdCtrls, Mask, bsSkinBoxCtrls, ExtCtrls;
type
Tdjyc_frm = class(Tsjycbase_frm)
ds_hyd: TDataSource;
bsSkinDBLookupComboBox10: TbsSkinDBLookupComboBox;
bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox;
ADOTable1: TADOQuery;
procedure acModifyExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure acSaveExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
djyc_frm: Tdjyc_frm;
implementation
uses data_un;
{$R *.dfm}
procedure Tdjyc_frm.acModifyExecute(Sender: TObject);
begin
bsSkinDBLookupComboBox11.KeyValue:=bsSkinDBLookupComboBox10.KeyValue;
inherited;
end;
procedure Tdjyc_frm.FormCreate(Sender: TObject);
begin
hylx:='JH';
hyd:='本月進貨';
if not ADOTable1.Active then
ADOTable1.Open;
inherited;
end;
procedure Tdjyc_frm.acSaveExecute(Sender: TObject);
begin
hydid:=ADOTable1.FieldValues['fid'];
inherited;
end;
procedure Tdjyc_frm.FormShow(Sender: TObject);
begin
inherited;
bsSkinDateEdit1.Date:=Date();
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -