?? in100select.pas
字號:
unit IN100Select;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
BaseDialog, Db, DBTables, StdCtrls, Buttons, Mask, DBCtrls;
type
TfmIN100Select = class(TfmBaseDialog)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
ED1: TDBComboBox;
ED2: TDBComboBox;
GroupBox4: TGroupBox;
Label4: TLabel;
sbWarehouseID: TSpeedButton;
ED3: TDBEdit;
DBEdit3: TDBEdit;
ED4: TDBCheckBox;
procedure bnOKClick(Sender: TObject);
procedure bnCancelClick(Sender: TObject);
procedure sbWarehouseIDClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmIN100Select: TfmIN100Select;
implementation
uses DataModule, BaseSearch, ChinaCalendar, IN100;
{$R *.DFM}
procedure TfmIN100Select.bnOKClick(Sender: TObject);
begin
inherited;
fmIN100.AInventoryYear := DM.tbInput.FieldByName('TrsYear').AsString;
fmIN100.AInventoryMonth := DM.tbInput.FieldByName('TrsMonth').AsString;
if DM.tbInput.FieldByName('AllWarehouseID').AsBoolean then
begin
fmIN100.AStartWarehouseID := '0000';
fmIN100.AEndWarehouseID := 'ZZZZ';
end
else
begin
fmIN100.AStartWarehouseID := DM.tbInput.FieldByName('WarehouseID').AsString;
fmIN100.AEndWarehouseID := DM.tbInput.FieldByName('WarehouseID').AsString;
end;
fmIN100.ReData := True;
end;
procedure TfmIN100Select.bnCancelClick(Sender: TObject);
begin
inherited;
fmIN100.ReData := False;
end;
procedure TfmIN100Select.sbWarehouseIDClick(Sender: TObject);
begin
inherited;
SearchData(ED3, DM.qyWarehouse);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -