charge_report.pas

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

unit Charge_Report;

interface

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

type
  Tfrm_Charge_Report = class(TForm)
    GroupBox1: TGroupBox;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    ComboBox5: TComboBox;
    ComboBox7: TComboBox;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox8: TCheckBox;
    ComboBox2: TComboBox;
    ComboBox4: TComboBox;
    ComboBox6: TComboBox;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    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;
    Label28: TLabel;
    Label24: 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;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit20: TDBEdit;
    DBGrid1: TDBGrid;
    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 CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure Cmd_SearchClick(Sender: TObject);
    procedure Cmd_PreviewClick(Sender: TObject);
    procedure Cmd_PrintClick(Sender: TObject);
    procedure Cmd_ExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Charge_Report: Tfrm_Charge_Report;
  tempSql:String;
implementation

uses Data, Preview, ReportInFormation, func;

{$R *.dfm}

procedure Tfrm_Charge_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_NO from [Charge_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox1.Items.Add(frm_data.ADOQuery1.FieldByName('C_NO').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox1.Visible:=False;
        ComboBox1.Clear;
    end;
end;

procedure Tfrm_Charge_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 C_ID from [Charge_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox2.Items.Add(frm_data.ADOQuery1.FieldByName('C_ID').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox2.Visible:=False;
        ComboBox2.Clear;
    end;
end;

procedure Tfrm_Charge_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_ID from [Charge_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox3.Items.Add(frm_data.ADOQuery1.FieldByName('Drive_ID').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox3.Visible:=False;
        ComboBox3.Clear;
    end;
end;

procedure Tfrm_Charge_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 C_Telphon from [Charge_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox4.Items.Add(frm_data.ADOQuery1.FieldByName('C_Telphon').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox4.Visible:=False;
        ComboBox4.Clear;
    end;
end;

procedure Tfrm_Charge_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 Man from [Charge_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox5.Items.Add(frm_data.ADOQuery1.FieldByName('Man').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox5.Visible:=False;
        ComboBox5.Clear;
    end;
end;

procedure Tfrm_Charge_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 Charge_Name from [Charge_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox6.Items.Add(frm_data.ADOQuery1.FieldByName('Charge_Name').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox6.Visible:=False;
        ComboBox6.Clear;
    end;
end;

procedure Tfrm_Charge_Report.CheckBox7Click(Sender: TObject);
begin
    if CheckBox7.Checked=True then
    begin
        ComboBox7.Visible:=True;
        ComboBox7.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct Charge_Type from [Charge_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox7.Items.Add(frm_data.ADOQuery1.FieldByName('Charge_Type').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox7.Visible:=False;
        ComboBox7.Clear;
    end;
end;

procedure Tfrm_Charge_Report.CheckBox8Click(Sender: TObject);
begin
    if CheckBox8.Checked=True then
    begin
        ComboBox8.Visible:=True;
        ComboBox8.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct List_No from [Charge_View]');
            Prepared;