【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供pfm_youhuid.pas参考,解决您在pfm_youhuid.pas学习中工作中的难题,参考学习。
unit pfm_youhuid;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB,ado_dm, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls,
ComCtrls;
type
Tfm_youhuid = class(TForm)
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
RButton1: TRadioButton;
RButton2: TRadioButton;
ADOQuery1spbm: TStringField;
ADOQuery1sptxm: TStringField;
ADOQuery1yhfs: TStringField;
ADOQuery1sttime: TDateTimeField;
ADOQuery1endtime: TDateTimeField;
ADOQuery1yhnum: TIntegerField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBEdit6: TDBEdit;
DBNavigator1: TDBNavigator;
DTPicker1: TDateTimePicker;
DTPicker2: TDateTimePicker;
ADOQuery1yhdj: TBCDField;
Label7: TLabel;
DBEdit4: TDBEdit;
procedure FormCreate(Sender: TObject);
procedure RButton1Click(Sender: TObject);
procedure RButton2Click(Sender: TObject);
procedure ADOQuery1BeforePost(DataSet: TDataSet);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fm_youhuid: Tfm_youhuid;
implementation
{$R *.DFM}
var
GridColName:TstringList;
procedure Tfm_youhuid.FormCreate(Sender: TObject);
var
i:integer;
begin
GridColName:=TStringList.create;
GridColName.add('spbm=商品编码');
GridColName.add('sptxm=商品条形码');
GridColName.add('sttime=促销优惠起始时间');
GridColName.add('endtime=促销优惠结束时间');
GridColName.add('yhfs=促销方式');
GridColName.add('yhdj=促销优惠单价');
dbedit6.Visible:=false;
label6.Visible:=false;
label6.top:=label4.top;
dbedit6.top:=DTPicker1.top;
adoquery1.filter:='yhfs=''限时''';
adoquery1.filtered:=true;
if adoquery1.active=false then
adoquery1.active:=true;
for i:=0 to dbgrid1.columns.count-1 do
begin
if (dbgrid1.columns[i].fieldname='yhnum') then
dbgrid1.columns[i].visible:=false;
if (dbgrid1.columns[i].fieldname='sttime') or
(dbgrid1.columns[i].fieldname='endtime') then
dbgrid1.columns[i].visible:=true;
dbgrid1.Columns[i].Title.Caption:=GridColName.values[dbgrid1.columns[i].fieldname];
end;
end;
procedure Tfm_youhuid.RButton1Click(Sender: TObject);
var
i:integer;
begin
adoquery1.filter:='yhfs=''限时''';
adoquery1.filtered:=true;
dbedit6.Visible:=false;
label6.Visible:=false;
DTPicker2.visible:=true;
label5.visible:=true;
DTPicker1.visible:=true;
label4.visible:=true;
for i:=0 to dbgrid1.columns.count-1 do
begin
if (dbgrid1.columns[i].fieldname='yhnum') then
dbgrid1.columns[i].visible:=false;
if (dbgrid1.columns[i].fieldname='sttime') or
(dbgrid1.columns[i].fieldname='endtime') then
dbgrid1.columns[i].visible:=true;
end;
end;
procedure Tfm_youhuid.RButton2Click(Sender: TObject);
var
i:integer;
begin
adoquery1.filter:='yhfs=''批量''';
adoquery1.filtered:=true;
dbedit6.Visible:=true;
label6.Visible:=true;
DTPicker2.visible:=false;
label5.visible:=false;
DTPicker1.visible:=false;
label4.visible:=false;
for i:=0 to dbgrid1.columns.count-1 do
begin
if (dbgrid1.columns[i].fieldname='yhnum') then
dbgrid1.columns[i].visible:=true;
if (dbgrid1.columns[i].fieldname='sttime') or
(dbgrid1.columns[i].fieldname='endtime') then
dbgrid1.columns[i].visible:=false;
end;
end;
procedure Tfm_youhuid.ADOQuery1BeforePost(DataSet: TDataSet);
begin
if length(adoquery1.FieldByName('sptxm').asstring)<>13 then
begin
showmessage('商品的条形码应为13位');
abort;
exit;
end;
if adoquery1.FieldByName('yhdj').asinteger<=0 then
begin
showmessage('促销优惠单价必须>0');
abort;
exit;
end;
if RButton1.Checked=true then
begin
if dtpicker1.DateTime>=dtpicker2.datetime then
begin
showmessage('中止时间应大于起始时间');
abort;
end;
adoquery1.fieldbyname('sttime').asdatetime:=dtpicker1.DateTime;
adoquery1.fieldbyname('endtime').asdatetime:=dtpicker2.DateTime;
adoquery1.fieldbyname('yhfs').asstring:='限时';
end
else
begin
end;
end;
procedure Tfm_youhuid.FormClose(Sender: TObject; var Action: TCloseAction);
begin
GridColName.free;
action:=caFree;
end;
end.
上一篇:
pfm_ygxx.pas
下一篇:
法律专业开题报告范文