unit_frmcleardata.pas

来自「影院售票系统完整源码」· PAS 代码 · 共 59 行

unit Unit_frmClearData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit_frmtemplate2, StdCtrls, Buttons, ExtCtrls, ComCtrls,
  CyberEdit;

type
  Tfrmcleardata = class(Tfrmtemplate2)
    Label1: TLabel;
    BtnSave: TBitBtn;
    CheckBox1: TCheckBox;
    CHKClearsell: TCheckBox;
    CheckBox4: TCheckBox;
    Label2: TLabel;
    DTPenddate: TCyberDateTimePicker;
    procedure BtnSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcleardata: Tfrmcleardata;

implementation
uses unit_adodm,unit_public;
{$R *.dfm}

procedure Tfrmcleardata.BtnSaveClick(Sender: TObject);
begin
  inherited;
  with adodm.ADOProc do
  begin
    Close;
    ProcedureName := 'my_Clear_plan_data';
    Parameters.Refresh;
    Parameters.Items[1].Value :=DTPenddate.Date ;
    if CHKClearsell.Checked then
      Parameters.Items[2].Value :=1
    else
      Parameters.Items[2].Value :=2 ;
    Parameters.Items[3].Value :=-1;
    ExecProc;
  end;
end;

procedure Tfrmcleardata.FormShow(Sender: TObject);
begin
  inherited;
  DTPenddate.Date :=date;
end;

end.