car_report.~pas

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

    end;
    tempSql:=Copy(tempSql,0,length(tempSql)-4);
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add(tempSql);
        Prepared;
        Open;
        frm_Preview:=Tfrm_Preview.Create(self);
        frm_ReportInFormation:=Tfrm_ReportInFormation.Create(self);
        frm_ReportInFormation.L_Car_HeaderTitle.Caption:=func.Use_mond+frm_ReportInFormation.L_Car_HeaderTitle.Caption;
        frm_ReportInFormation.lab_Car_Ren.Caption:=frm_ReportInFormation.lab_Car_Ren.Caption+func.Login_Name;
        frm_ReportInFormation.Lab_Car_Time.Caption:=frm_ReportInFormation.Lab_Car_Time.Caption+formatdatetime('yyyy''-''mm''-''dd',now);
        frm_ReportInFormation.QuickRep_Car.Prepare;
        frm_ReportInFormation.QuickRep_Car.Print;
    end;
end;

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

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

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

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

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

procedure Tfrm_Car_Report.CheckBox9Click(Sender: TObject);
begin
    if CheckBox9.Checked=True then
    begin
        ComboBox9.Visible:=True;
        ComboBox9.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct D_Date from [Car]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox9.Items.Add(frm_data.ADOQuery1.FieldByName('D_Date').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox9.Visible:=False;
        ComboBox9.Clear;
    end;
end;

procedure Tfrm_Car_Report.CheckBox10Click(Sender: TObject);
begin
    if CheckBox10.Checked=True then
    begin
        ComboBox10.Visible:=True;
        ComboBox10.Clear;
        with frm_data.ADOQuery1 do
        begin
            Close;
            Sql.Clear;
            Sql.Add('select Distinct F_Date from [Car]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox10.Items.Add(frm_data.ADOQuery1.FieldByName('F_Date').AsString);
                Next;
            end;
        end;
    end
    else
    begin
        ComboBox10.Visible:=False;
        ComboBox10.Clear;
    end;
end;

procedure Tfrm_Car_Report.CheckBox11Click(Sender: TObject);
begin
    Edit1.Clear;
    Edit2.Clear;
    if CheckBox11.Checked=True then
    begin
        Edit1.Visible:=True;
        Edit2.Visible:=True;
        DateTimePicker1.Visible:=True;
        DateTimePicker2.Visible:=True;
        Label3.Visible:=True;
    end
    else
    begin
        Edit1.Visible:=False;
        Edit2.Visible:=False;
        DateTimePicker1.Visible:=False;
        DateTimePicker2.Visible:=False;
        Label3.Visible:=False;
    end;
end;

procedure Tfrm_Car_Report.CheckBox12Click(Sender: TObject);
begin
    Edit3.Clear;
    Edit4.Clear;
    if CheckBox12.Checked=True then
    begin
        Edit3.Visible:=True;
        Edit4.Visible:=True;
        DateTimePicker3.Visible:=True;
        DateTimePicker4.Visible:=True;
        Label4.Visible:=True;
    end
    else
    begin
        Edit3.Visible:=False;
        Edit4.Visible:=False;
        DateTimePicker3.Visible:=False;
        DateTimePicker4.Visible:=False;
        Label4.Visible:=False;
    end;
end;

procedure Tfrm_Car_Report.DateTimePicker1Change(Sender: TObject);
begin
    Edit1.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DateTimePicker1.DateTime);
end;

procedure Tfrm_Car_Report.DateTimePicker2Change(Sender: TObject);
begin
    Edit2.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DateTimePicker2.DateTime);
end;

procedure Tfrm_Car_Report.DateTimePicker3Change(Sender: TObject);
begin
    Edit3.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DateTimePicker3.DateTime);
end;

procedure Tfrm_Car_Report.DateTimePicker4Change(Sender: TObject);
begin
    Edit4.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DateTimePicker4.DateTime);
end;

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

end.