js320unit.pas

货物配送管理系统对配送服务

unit JS320Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PublicUnit, jpeg, ExtCtrls, StdCtrls, ComCtrls, Grids, DBGrids,
  DBCtrls;

type
  TJS320Form = class(TPublicUnit)
    Panel1: TPanel;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    CheckBox1: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JS320Form: TJS320Form;

implementation

uses DMUnit;

{$R *.dfm}

procedure TJS320Form.CheckBox1Click(Sender: TObject);
begin
  inherited;
  inherited; // 判断是否可用
  DateTimePicker1.Enabled := CheckBox1.Checked;
  DateTimePicker2.Enabled := CheckBox1.Checked;
end;

procedure TJS320Form.Button9Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TJS320Form.Button7Click(Sender: TObject);
begin
  inherited;
  with DM.Querytemp do
  begin
    SQL.clear;
    if CheckBox1.Checked then
      SQl.Text := 'select * from 结算分单 where 日期 > #'
        + FormatDateTime('yyyy/mm/dd', DateTimePicker1.DateTime) + '# and 日期 < #' + FormatDateTime('yyyy/mm/dd', DateTimePicker2.DateTime) + '#'
    else
      SQl.Text := 'select * from 货运作业总表 ';
    Close;
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    open;
    DBGrid1.DataSource := DM.dsQuerytemp;
    DBNavigator1.DataSource := DM.dsQuerytemp;
  end;
end;


end.