pfm_youhuid.pas

POS收银系统

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.