check.~pas

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

            frm_data.Query_Car_Check.Parameters[7].Value:=Trim(Edit9.Text);
            frm_data.Query_Car_Check.Parameters[8].Value:=Trim(Edit10.Text);
            frm_data.Query_Car_Check.Parameters[9].Value:=Trim(Edit_ID.Text);
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('修改数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_RushClick(Sender);
            Except
                APPlication.MessageBox('系统错误！系统在修改数据表【Car_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Check.DBGrid1CellClick(Column: TColumn);
begin
    inherited;
    Edit1.Text:=frm_data.Query_Car_Check.FieldByName('Check_Type').AsString;
    Edit2.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Query_Car_Check.FieldByName('Check_date').AsDateTime);
    Edit3.Text:=frm_data.Query_Car_Check.FieldByName('Check_Mond').AsString;
    Edit4.Text:=frm_data.Query_Car_Check.FieldByName('Check_Login').AsString;
    Edit5.Text:=frm_data.Query_Car_Check.FieldByName('Check_Name').AsString;
    Edit6.Text:=frm_data.Query_Car_Check.FieldByName('C_ID').AsString;
    Edit8.Text:=frm_data.Query_Car_Check.FieldByName('Check_Result').AsString;
    Edit9.Text:=frm_data.Query_Car_Check.FieldByName('Check_EXP').AsString;
    Edit10.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Query_Car_Check.FieldByName('Use_Date').AsDateTime);
    Edit11.Text:=frm_data.Query_Car_Check.FieldByName('Recorder').AsString;
    Edit_ID.Text:=frm_data.Query_Car_Check.FieldByName('ID').AsString;
end;

procedure Tfrm_Check.Cmd_RushClick(Sender: TObject);
begin
    inherited;

    if Cmd_Rush.Caption='取消' then
    begin
        Cmd_Add.Enabled:=True;
        Cmd_Delete.Enabled:=True;
        Cmd_Edit.Enabled:=True;
        Cmd_Save.Enabled:=False;
        Cmd_Rush.Caption:='刷新';
    end;
    with frm_data.Query_Car_Check do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Car_Check]');
        Try
            Prepared;
            Open;
            if frm_data.Query_Car_Check.RecordCount>0 then
            begin
                First;
                Edit1.Text:=frm_data.Query_Car_Check.FieldByName('Check_Type').AsString;
                Edit2.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Query_Car_Check.FieldByName('Check_date').AsDateTime);
                Edit3.Text:=frm_data.Query_Car_Check.FieldByName('Check_Mond').AsString;
                Edit4.Text:=frm_data.Query_Car_Check.FieldByName('Check_Login').AsString;
                Edit5.Text:=frm_data.Query_Car_Check.FieldByName('Check_Name').AsString;
                Edit6.Text:=frm_data.Query_Car_Check.FieldByName('C_ID').AsString;
                Edit8.Text:=frm_data.Query_Car_Check.FieldByName('Check_Result').AsString;
                Edit9.Text:=frm_data.Query_Car_Check.FieldByName('Check_EXP').AsString;
                Edit10.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.Query_Car_Check.FieldByName('Use_Date').AsDateTime);
                Edit11.Text:=frm_data.Query_Car_Check.FieldByName('Recorder').AsString;
                Edit_ID.Text:=frm_data.Query_Car_Check.FieldByName('ID').AsString;
            end
            else
            begin
                Edit1.Text:=''; Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';
                Edit5.Text:=''; Edit6.Text:='';Edit7.Text:='';Edit8.Text:='';
                Edit9.Text:=''; Edit10.Text:='';
                Edit_ID.Text:='';
            end;
        Except
            APPlication.MessageBox('系统错误！【系统在打开数据库时出现服务器连接错误】！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Check.Cmd_DeleteClick(Sender: TObject);
begin
    inherited;
    if APPlication.MessageBox('确定需要删除该【车辆审查信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Car_Check do
        begin
            Close;
            Sql.Clear;
            Sql.Add('DELETE [Car_Check] WHERE ID='''+Trim(Edit_ID.Text)+''' ');
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('删除数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Except
                APPlication.MessageBox('系统错误！系统在删除数据表【Car_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;

end;

procedure Tfrm_Check.DateTimePicker1Change(Sender: TObject);
begin
    inherited;
    Edit10.Text:=FormatDateTime('yyyy''-''mm''-''dd',DateTimePicker1.DateTime);
end;

procedure Tfrm_Check.FormShow(Sender: TObject);
begin
    inherited;
    Cmd_RushClick(sender);
end;

procedure Tfrm_Check.SpeedButton3Click(Sender: TObject);
begin
    inherited;
    func.Car_Select:='';
    func.Car_Select_Result:='';
    func.Car_Select:='Car_ID'; //表示选择车辆编号
    frm_Car_Select:=Tfrm_Car_Select.Create(self);
    frm_Car_Select.ShowModal;
    frm_Car_Select.Free;
    //
    //把选择的结果传递给Edit1
    Edit6.Text:=func.Car_Select_Result;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Car] where C_ID='''+Trim(Edit6.Text)+'''');
        try
            Prepared;
            Open;
            Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('C_ID').AsString;
            Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Man').AsString;
        Except
            Application.MessageBox('系统错误！系统在打开数据表【Car】时出错！与远程服务器连接失败！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

procedure Tfrm_Check.SpeedButton4Click(Sender: TObject);
begin
    inherited;
    func.Car_Select:='';
    func.Car_Select_Result:='';
    func.Car_Select:='Car_Man'; //表示选择车辆编号
    frm_Car_Select:=Tfrm_Car_Select.Create(self);
    frm_Car_Select.ShowModal;
    frm_Car_Select.Free;
    //
    //把选择的结果传递给Edit1
    Edit7.Text:=func.Car_Select_Result;
    with frm_data.ADOQuery_Car do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Car] where Man='''+Trim(Edit7.Text)+'''');
        try
            Prepared;
            Open;
            Edit6.Text:=frm_data.ADOQuery_Car.FieldByName('C_ID').AsString;
            Edit7.Text:=frm_data.ADOQuery_Car.FieldByName('Man').AsString;
        Except
            Application.MessageBox('系统错误！系统在打开数据表【Car】时出错！与远程服务器连接失败！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

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

procedure Tfrm_Check.SpeedButton2Click(Sender: TObject);
begin
    inherited;
    func.Mond_Select:='';
    func.Mond_Select_Result:='';
    func.Mond_Select:='have';
    frm_Mond_Select:=Tfrm_Mond_Select.Create(self);
    frm_Mond_Select.ShowModal;
    Edit3.Text:=func.Mond_Select_Result;
    frm_Mond_Select.Free;
end;

procedure Tfrm_Check.Cmd_ReportClick(Sender: TObject);
begin
    inherited;
    inherited;
    frm_CarCheck_Report:=Tfrm_CarCheck_Report.Create(self);
    frm_CarCheck_Report.ShowModal;
    frm_CarCheck_Report.Free;
end;

end.