drive_~1.~pa

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

    with frm_data.Query_Drive_Card_Check do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Drive_Card_Check] where Drive_ID='''+Trim(Edit1.Text)+''' and Check_Date='''+Trim(Edit11.Text)+'''');
        Try
            prepared;
            Open;
            if frm_data.Query_Drive_Card_Check.RecordCount>0 then
            begin
                APPlication.MessageBox('操作失败【该车辆该名称的审查已经审查了】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Edit1.SetFocus;
                Exit;
            end
            else
            begin
                with frm_data.Query_Drive_Card_Check do
                begin
                    Close;
                    Sql.Clear;
                    Sql.Add('INSERT INTO [Drive_Card_Check](Drive_ID,Record_Date,Check_Mond,Check_Date,Check_Man,Recorder,Value_Date,Check_EXP,Check_Result) values (:u1,:u2,:u3,:u4,:u5,:u6,:u7,:u8,:u9)');
                    frm_data.Query_Drive_Card_Check.Parameters[0].Value:=Trim(Edit1.Text);
                    frm_data.Query_Drive_Card_Check.Parameters[1].Value:=Trim(Edit9.Text);
                    frm_data.Query_Drive_Card_Check.Parameters[2].Value:=Trim(Edit10.Text);
                    frm_data.Query_Drive_Card_Check.Parameters[3].Value:=Trim(Edit11.Text);
                    frm_data.Query_Drive_Card_Check.Parameters[4].Value:=Trim(Edit12.Text);
                    frm_data.Query_Drive_Card_Check.Parameters[5].Value:=Trim(Edit13.Text);
                    frm_data.Query_Drive_Card_Check.Parameters[6].Value:=Trim(Edit14.Text);
                    frm_data.Query_Drive_Card_Check.Parameters[7].Value:=Trim(Edit15.Text);
                    frm_data.Query_Drive_Card_Check.Parameters[8].Value:=Trim(Edit16.Text);
                    
                    try
                        Prepared;
                        Execsql;
                        APPlication.MessageBox('保存数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Cmd_RushClick(Sender);
                    Except
                        APPlication.MessageBox('系统错误！系统在保存数据表【Drive_Card_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Exit;
                    end;
                end;
            end;
        except
            APPlication.MessageBox('系统错误！系统在打开数据表【Drive_Card_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;

end;

procedure Tfrm_Drive_Card_Check.Cmd_EditClick(Sender: TObject);
begin
    inherited;
    if APPlication.MessageBox('确定需要修改该【车辆审查信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Drive_Card_Check do
        begin
            Close;
            Sql.Clear;
            Sql.Add('UPDATE [Drive_Card_Check] SET Drive_ID=:u1,Record_Date=:u2,Check_Mond=:u3,Check_Date=:u4,Check_Man=:u5,Recorder=:u6,Value_Date=:u7,Check_EXP=:u8,Check_Result=:u9 WHERE ID=:u10');
            frm_data.Query_Drive_Card_Check.Parameters[0].Value:=Trim(Edit1.Text);
            frm_data.Query_Drive_Card_Check.Parameters[1].Value:=Trim(Edit9.Text);
            frm_data.Query_Drive_Card_Check.Parameters[2].Value:=Trim(Edit10.Text);
            frm_data.Query_Drive_Card_Check.Parameters[3].Value:=Trim(Edit11.Text);
            frm_data.Query_Drive_Card_Check.Parameters[4].Value:=Trim(Edit12.Text);
            frm_data.Query_Drive_Card_Check.Parameters[5].Value:=Trim(Edit13.Text);
            frm_data.Query_Drive_Card_Check.Parameters[6].Value:=Trim(Edit14.Text);
            frm_data.Query_Drive_Card_Check.Parameters[7].Value:=Trim(Edit15.Text);
            frm_data.Query_Drive_Card_Check.Parameters[8].Value:=Trim(Edit16.Text);
            frm_data.Query_Drive_Card_Check.Parameters[9].Value:=Trim(Edit_ID.Text);
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('修改数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_RushClick(Sender);
            Except
                APPlication.MessageBox('系统错误！系统在修改数据表【Drive_Card_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

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

procedure Tfrm_Drive_Card_Check.DateTimePicker1Change(Sender: TObject);
begin
  inherited;
    Edit11.Text:=FormatDatetime('yyyy''-''mm''-''dd',DateTimePicker1.DateTime);
end;

procedure Tfrm_Drive_Card_Check.DateTimePicker2Change(Sender: TObject);
begin
  inherited;
    Edit14.Text:=FormatDatetime('yyyy''-''mm''-''dd',DateTimePicker2.DateTime);
end;

procedure Tfrm_Drive_Card_Check.Cmd_Select_CardClick(Sender: TObject);
begin
  inherited;
    func.Drive_Card_Select:='';
    func.Drive_Card_Select_Result:='';
    func.Drive_Card_Select:='Drive_ID'; //表示选择驾驶证编号
    frm_Drive_Card_Select:=Tfrm_Drive_Card_Select.Create(self);
    frm_Drive_Card_Select.ShowModal;
    frm_Drive_Card_Select.Free;
    //
    //把选择的结果传递给Edit1
    Edit1.Text:=func.Drive_Card_Select_Result;
    with frm_data.Query_Drive_Card do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Drive_Card] where Drive_ID='''+Trim(Edit1.Text)+'''');
        try
            Prepared;
            Open;
            Edit2.Text:=frm_data.Query_Drive_Card.FieldByName('Drive_Man').AsString;
            Edit3.Text:=frm_data.Query_Drive_Card.FieldByName('SH_Card').AsString;
            Edit4.Text:=frm_data.Query_Drive_Card.FieldByName('SEX').AsString;
            Edit5.Text:=FormatDateTime('yyyy''-''mm''-''dd',frm_data.Query_Drive_Card.FieldByName('Old_Date').AsDateTime);
            Edit6.Text:=frm_data.Query_Drive_Card.FieldByName('Drive_Card_Type').AsString;
            Edit7.Text:=frm_data.Query_Drive_Card.FieldByName('JG').AsString;
            Edit8.Text:=frm_data.Query_Drive_Card.FieldByName('Telphone').AsString;
        Except
            Application.MessageBox('系统错误！系统在打开数据表【Drive_Card】时出错！与远程服务器连接失败！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

procedure Tfrm_Drive_Card_Check.Cmd_Select_DriverClick(Sender: TObject);
begin
  inherited;
    func.Drive_Card_Select:='';
    func.Drive_Card_Select_Result:='';
    func.Drive_Card_Select:='Drive_Man'; //表示选择驾驶证编号
    frm_Drive_Card_Select:=Tfrm_Drive_Card_Select.Create(self);
    frm_Drive_Card_Select.ShowModal;
    frm_Drive_Card_Select.Free;
    //
    //把选择的结果传递给Edit1
    Edit1.Text:=func.Drive_Card_Select_Result;
    with frm_data.Query_Drive_Card do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT * FROM [Drive_Card] where Drive_Man='''+Trim(Edit2.Text)+'''');
        try
            Prepared;
            Open;
            Edit1.Text:=frm_data.Query_Drive_Card.FieldByName('Drive_ID').AsString;
            Edit3.Text:=frm_data.Query_Drive_Card.FieldByName('SH_Card').AsString;
            Edit4.Text:=frm_data.Query_Drive_Card.FieldByName('SEX').AsString;
            Edit5.Text:=FormatDateTime('yyyy''-''mm''-''dd',frm_data.Query_Drive_Card.FieldByName('Old_Date').AsDateTime);
            Edit6.Text:=frm_data.Query_Drive_Card.FieldByName('Drive_Card_Type').AsString;
            Edit7.Text:=frm_data.Query_Drive_Card.FieldByName('JG').AsString;
            Edit8.Text:=frm_data.Query_Drive_Card.FieldByName('Telphone').AsString;
        Except
            Application.MessageBox('系统错误！系统在打开数据表【Drive_Card】时出错！与远程服务器连接失败！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

procedure Tfrm_Drive_Card_Check.Cmd_MondClick(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;
    Edit10.Text:=func.Mond_Select_Result;
    frm_Mond_Select.Free;
end;

procedure Tfrm_Drive_Card_Check.Cmd_ReportClick(Sender: TObject);
begin
  inherited;
    frm_Drive_Card_Check_Rteport:=Tfrm_Drive_Card_Check_Rteport.Create(self);
    frm_Drive_Card_Check_Rteport.ShowModal;
    frm_Drive_Card_Check_Rteport.Free;
end;

end.