done_report.~pas

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

unit Done_Report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Mask, DBCtrls, ExtCtrls, Buttons, ToolWin,
  ComCtrls, StdCtrls;

type
  Tfrm_Done_Report = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    ComboBox5: TComboBox;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox6: TCheckBox;
    ComboBox2: TComboBox;
    ComboBox4: TComboBox;
    ComboBox6: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    DateTimePicker2: TDateTimePicker;
    ToolBar1: TToolBar;
    Cmd_Search: TSpeedButton;
    Cmd_Preview: TSpeedButton;
    Cmd_Print: TSpeedButton;
    Cmd_Exit: TSpeedButton;
    Cmd_Cancel: TSpeedButton;
    Panel5: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    Label18: TLabel;
    Label20: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    Label25: TLabel;
    Label32: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit20: TDBEdit;
    Label3: TLabel;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    DBEdit8: TDBEdit;
    Label7: TLabel;
    DBEdit10: TDBEdit;
    Label8: TLabel;
    DBEdit12: TDBEdit;
    DBEdit14: TDBEdit;
    DBGrid1: TDBGrid;
    procedure Cmd_ExitClick(Sender: TObject);
    procedure Cmd_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure DateTimePicker4Change(Sender: TObject);
    procedure Cmd_SearchClick(Sender: TObject);
    procedure Cmd_PreviewClick(Sender: TObject);
    procedure Cmd_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Done_Report: Tfrm_Done_Report;
    tempsql:String;
implementation

uses Data, Preview, ReportInFormation, func;

{$R *.dfm}

procedure Tfrm_Done_Report.Cmd_ExitClick(Sender: TObject);
begin
    Cmd_Preview.Enabled:=False;
    Cmd_Print.Enabled:=False;
end;

procedure Tfrm_Done_Report.Cmd_CancelClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Done_Report.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    action:=Cafree;
end;

procedure Tfrm_Done_Report.CheckBox1Click(Sender: TObject);
begin
    if CheckBox1.Checked=True then
    begin
        ComboBox1.Visible:=True;
        ComboBox1.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct C_ID from [Back_Role_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox1.Items.Add(frm_data.ADOQuery1.FieldByName('C_ID').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox1.Visible:=False;
        ComboBox1.Clear;
    end;
end;

procedure Tfrm_Done_Report.CheckBox2Click(Sender: TObject);
begin
    if CheckBox2.Checked=True then
    begin
        ComboBox2.Visible:=True;
        ComboBox2.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct Man from [Back_Role_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox2.Items.Add(frm_data.ADOQuery1.FieldByName('Man').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox2.Visible:=False;
        ComboBox2.Clear;
    end;
end;

procedure Tfrm_Done_Report.CheckBox3Click(Sender: TObject);
begin
    if CheckBox3.Checked=True then
    begin
        ComboBox3.Visible:=True;
        ComboBox3.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct Drive_Man from [Back_Role_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox3.Items.Add(frm_data.ADOQuery1.FieldByName('Drive_Man').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox3.Visible:=False;
        ComboBox3.Clear;
    end;
end;

procedure Tfrm_Done_Report.CheckBox4Click(Sender: TObject);
begin
    if CheckBox4.Checked=True then
    begin
        ComboBox4.Visible:=True;
        ComboBox4.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct Drive_ID from [Back_Role_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox4.Items.Add(frm_data.ADOQuery1.FieldByName('Drive_ID').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox4.Visible:=False;
        ComboBox4.Clear;
    end;
end;

procedure Tfrm_Done_Report.CheckBox5Click(Sender: TObject);
begin
    if CheckBox5.Checked=True then
    begin
        ComboBox5.Visible:=True;
        ComboBox5.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct Back_Date from [Back_Role_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox5.Items.Add(frm_data.ADOQuery1.FieldByName('Back_Date').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox5.Visible:=False;
        ComboBox5.Clear;
    end;
end;

procedure Tfrm_Done_Report.CheckBox6Click(Sender: TObject);
begin
    if CheckBox6.Checked=True then
    begin
        ComboBox6.Visible:=True;
        ComboBox6.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct Done_Date from [Back_Role_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox6.Items.Add(frm_data.ADOQuery1.FieldByName('Done_Date').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox6.Visible:=False;
        ComboBox6.Clear;
    end;
end;

procedure Tfrm_Done_Report.CheckBox7Click(Sender: TObject);