car_ch~2.~pa

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

unit Car_Change_Report;

interface

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

type
  Tfrm_Car_Change_Report = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: 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;
    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;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label6: TLabel;
    Label32: TLabel;
    DBEdit1: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit3: TDBEdit;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    GroupBox4: TGroupBox;
    DBEdit10: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    DBEdit11: TDBEdit;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    Label15: TLabel;
    DBEdit13: TDBEdit;
    Label16: TLabel;
    DBEdit14: TDBEdit;
    DBGrid1: TDBGrid;
    procedure Cmd_SearchClick(Sender: TObject);
    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 Cmd_PreviewClick(Sender: TObject);
    procedure Cmd_PrintClick(Sender: TObject);
    procedure Cmd_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_ExitClick(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure DateTimePicker4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Car_Change_Report: Tfrm_Car_Change_Report;
  tempSql:String;
implementation

uses Data, Preview, ReportInFormation, func;

{$R *.dfm}

procedure Tfrm_Car_Change_Report.Cmd_SearchClick(Sender: TObject);
begin
    inherited;
    tempsql:='Select * from [Car_Change] where ';
    if Trim(ComboBox1.Text)<>'' then
    begin
        tempSql:=tempSql+' B_ID Like '+''''+'%'+ Trim(ComboBox1.Text)+'%'+''''+' and ';
    end;
    if Trim(ComboBox2.Text)<>'' then
    begin
        tempSql:=tempSql+' B_Man Like '+''''+'%'+ Trim(ComboBox2.Text)+'%'+''''+' and ';
    end;
    if Trim(ComboBox3.Text)<>'' then
    begin
        tempSql:=tempSql+' C_ID Like '+''''+'%'+ Trim(ComboBox3.Text)+'%'+''''+' and ';
    end;
    if Trim(ComboBox4.Text)<>'' then
    begin
        tempSql:=tempSql+' Car_Man Like '+''''+'%'+ Trim(ComboBox4.Text)+'%'+''''+' and ';
    end;
    if Trim(ComboBox5.Text)<>'' then
    begin
        tempSql:=tempSql+' MondName Like '+''''+'%'+ Trim(ComboBox5.Text)+'%'+''''+' and ';
    end;
    if Trim(ComboBox6.Text)<>'' then
    begin
        tempSql:=tempSql+' Charager Like '+''''+'%'+ Trim(ComboBox6.Text)+'%'+''''+' and ';
    end;
    if Trim(ComboBox7.Text)<>'' then
    begin
        tempSql:=tempSql+' Change_Date = '+''''+ Trim(ComboBox7.Text)+''''+' and ';
    end;
    if Trim(ComboBox8.Text)<>'' then
    begin
        tempSql:=tempSql+' Record_Date = '+''''+ Trim(ComboBox8.Text)+''''+' and ';
    end;
    if CheckBox9.Checked=True then
    begin
        if Trim(Edit1.Text)<>'' then
        begin
            tempSql:=tempSql+' Change_Date between '''+Trim(Edit1.Text)+''' and '''+Trim(Edit2.Text)+''''+' and ';
        end
        else
        begin
            Application.MessageBox('操作错误，已经选择了按时间段查询，开始时间不能为空',''mb_ok);
            Edit1.SetFocus;
            Exit;
        end;
    end;
    if CheckBox10.Checked=True then
    begin
        if Trim(Edit3.Text)<>'' then
        begin
            tempSql:=tempSql+' Record_Date between '''+Trim(Edit3.Text)+''' and '''+Trim(Edit4.Text)+''''+' and ';
        end
        else
        begin
            Application.MessageBox('操作错误，已经选择了按时间段查询，开始时间不能为空',''mb_ok);
            Edit3.SetFocus;
            Exit;
        end;
    end;
    tempSql:=Copy(tempSql,0,length(tempSql)-4);
    with frm_data.Query_Car_Change do
    begin
        Close;
        Sql.Clear;
        Sql.Add(tempSql);
        Prepared;
        Open;
        if frm_data.Query_Car_Change.RecordCount<>0 then
        begin
            Cmd_Preview.Enabled:=True;
            Cmd_Print.Enabled:=True;
            Showmessage('符合条件的记录有：'+IntToStr(frm_data.Query_Car_Change.RecordCount)+'条');
        end
        else
        begin
            Cmd_Preview.Enabled:=False;
            Cmd_Print.Enabled:=False;
            Showmessage('符合条件的记录有：'+IntToStr(frm_data.Query_Car_Change.RecordCount)+'条');
        end;
    end;
end;

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

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

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

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

procedure Tfrm_Car_Change_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 MondName from [Car_Change_View]');
            Prepared;
            Open;
            while not eof do
            begin
                ComboBox5.Items.Add(frm_data.ADOQuery1.FieldByName('MondName').AsString);
                Next;
            end;
        end;
    end
    else