drive_card.~pas

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

    inherited;
    if Trim(Edit1.Text)='' then
    begin
        Edit1.SetFocus;
        APPlication.MessageBox('操作失败【驾驶证号】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Edit2.SetFocus;
        APPlication.MessageBox('操作失败【驾驶员名称】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit3.Text)='' then
    begin
        Edit3.SetFocus;
        APPlication.MessageBox('操作失败【身份证号】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit4.Text)='' then
    begin
        Edit4.SetFocus;
        APPlication.MessageBox('操作失败【性别】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit5.Text)='' then
    begin
        Edit5.SetFocus;
        APPlication.MessageBox('操作失败【出生日期】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit6.Text)='' then
    begin
        Edit6.SetFocus;
        APPlication.MessageBox('操作失败【驾照类型】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit9.Text)='' then
    begin
        Edit9.SetFocus;
        APPlication.MessageBox('操作失败【家庭地址】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit10.Text)='' then
    begin
        Edit10.SetFocus;
        APPlication.MessageBox('操作失败【发证单位】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit11.Text)='' then
    begin
        Edit11.SetFocus;
        APPlication.MessageBox('操作失败【发证日期】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    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;
            if frm_data.Query_Drive_Card.RecordCount>0 then
            begin
                APPlication.MessageBox('操作失败【该车辆该名称的审查已经审查了】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Edit6.SetFocus;
                Exit;
            end
            else
            begin
                with frm_data.Query_Drive_Card do
                begin
                    Close;
                    Sql.Clear;
                    Sql.Add('INSERT INTO [Drive_Card](Drive_ID,Drive_Man,SH_Card,SEX,Old_Date,Drive_Card_Type,JG,Telphone,Address,Send_Mond,Send_Date,Value_Date,Record_Date) values (:u1,:u2,:u3,:u4,:u5,:u6,:u7,:u8,:u9,:u10,:u11,:u12,:u13)');
                    frm_data.Query_Drive_Card.Parameters[0].Value:=Trim(Edit1.Text);
                    frm_data.Query_Drive_Card.Parameters[1].Value:=Trim(Edit2.Text);
                    frm_data.Query_Drive_Card.Parameters[2].Value:=Trim(Edit3.Text);
                    frm_data.Query_Drive_Card.Parameters[3].Value:=Trim(Edit4.Text);
                    frm_data.Query_Drive_Card.Parameters[4].Value:=Trim(Edit5.Text);
                    frm_data.Query_Drive_Card.Parameters[5].Value:=Trim(Edit6.Text);
                    frm_data.Query_Drive_Card.Parameters[6].Value:=Trim(Edit7.Text);
                    frm_data.Query_Drive_Card.Parameters[7].Value:=Trim(Edit8.Text);
                    frm_data.Query_Drive_Card.Parameters[8].Value:=Trim(Edit9.Text);
                    frm_data.Query_Drive_Card.Parameters[9].Value:=Trim(Edit10.Text);
                    frm_data.Query_Drive_Card.Parameters[10].Value:=Trim(Edit11.Text);
                    frm_data.Query_Drive_Card.Parameters[11].Value:=Trim(Edit12.Text);
                    frm_data.Query_Drive_Card.Parameters[12].Value:=Trim(Edit13.Text);
                    try
                        Prepared;
                        Execsql;
                        APPlication.MessageBox('保存数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Cmd_RushClick(Sender);
                    Except
                        APPlication.MessageBox('系统错误！系统在保存数据表【Drive_Card】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                        Exit;
                    end;
                end;
            end;
        except
            APPlication.MessageBox('系统错误！系统在打开数据表【Drive_Card】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

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

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

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

procedure Tfrm_Drive_Card.Edit1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   if ((Trim(Edit1.Text)='') and (Cmd_Add.Enabled=True)) then
    begin
        APPlication.MessageBox('操作错误！先单击【增加】按钮！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
end;

procedure Tfrm_Drive_Card.Cmd_EditClick(Sender: TObject);
begin
    inherited;
    if APPlication.MessageBox('确定需要修改该【车辆审查信息】吗？请确认！',Pchar(Application.Title),MB_okcancel)=idok then
    begin
        with frm_data.Query_Drive_Card do
        begin
            Close;
            Sql.Clear;
            Sql.Add('UPDATE [Drive_Card] SET Drive_ID=:u1,Drive_Man=:u2,SH_Card=:u3,SEX=:u4,Old_Date=:u5,Drive_Card_Type=:u6,JG=:u7,Telphone=:u8,Address=:u9,Send_Mond=:u10,Send_Date=:u11,Value_Date=:u12,Record_Date=:u13 WHERE ID=:u14');
            frm_data.Query_Drive_Card.Parameters[0].Value:=Trim(Edit1.Text);
            frm_data.Query_Drive_Card.Parameters[1].Value:=Trim(Edit2.Text);
            frm_data.Query_Drive_Card.Parameters[2].Value:=Trim(Edit3.Text);
            frm_data.Query_Drive_Card.Parameters[3].Value:=Trim(Edit4.Text);
            frm_data.Query_Drive_Card.Parameters[4].Value:=Trim(Edit5.Text);
            frm_data.Query_Drive_Card.Parameters[5].Value:=Trim(Edit6.Text);
            frm_data.Query_Drive_Card.Parameters[6].Value:=Trim(Edit7.Text);
            frm_data.Query_Drive_Card.Parameters[7].Value:=Trim(Edit8.Text);
            frm_data.Query_Drive_Card.Parameters[8].Value:=Trim(Edit9.Text);
            frm_data.Query_Drive_Card.Parameters[9].Value:=Trim(Edit10.Text);
            frm_data.Query_Drive_Card.Parameters[10].Value:=Trim(Edit11.Text);
            frm_data.Query_Drive_Card.Parameters[11].Value:=Trim(Edit12.Text);
            frm_data.Query_Drive_Card.Parameters[12].Value:=Trim(Edit13.Text);
            frm_data.Query_Drive_Card.Parameters[13].Value:=Trim(Edit_ID.Text);
            try
                Prepared;
                Execsql;
                APPlication.MessageBox('修改数据成功！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Cmd_RushClick(Sender);
            Except
                APPlication.MessageBox('系统错误！系统在修改数据表【Drive_Card】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

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

procedure Tfrm_Drive_Card.Cmd_ReportClick(Sender: TObject);
begin
    inherited;
    frm_Drive_Card_Report:=Tfrm_Drive_Card_Report.Create(self);
    frm_Drive_Card_Report.ShowModal;
    frm_Drive_Card_Report.Free;
end;

end.