check.~pas

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

unit Check;

interface

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

type
  Tfrm_Check = class(TChildForm)
    P_Main: TPanel;
    Panel1: TPanel;
    Edit1: TLabeledEdit;
    Edit4: TLabeledEdit;
    Edit6: TLabeledEdit;
    EditResult: TLabeledEdit;
    Editexp: TLabeledEdit;
    Edit2: TLabeledEdit;
    Edit5: TLabeledEdit;
    Edit7: TLabeledEdit;
    Edit3: TLabeledEdit;
    Panel2: TPanel;
    ToolBar1: TToolBar;
    Cmd_Add: TSpeedButton;
    Cmd_Delete: TSpeedButton;
    Cmd_Edit: TSpeedButton;
    DBGrid1: TDBGrid;
    Cmd_Save: TSpeedButton;
    Cmd_Rush: TSpeedButton;
    Edit10: TLabeledEdit;
    DateTimePicker1: TDateTimePicker;
    Panel3: TPanel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Edit_ID: TEdit;
    Edit9: TMemo;
    Edit8: TComboBox;
    DateTimePicker2: TDateTimePicker;
    Edit11: TLabeledEdit;
    XPMenu1: TXPMenu;
    Cmd_Report: TSpeedButton;
    procedure Cmd_AddClick(Sender: TObject);
    procedure Cmd_SaveClick(Sender: TObject);
    procedure Cmd_EditClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Cmd_RushClick(Sender: TObject);
    procedure Cmd_DeleteClick(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Cmd_ReportClick(Sender: TObject);//class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Check: Tfrm_Check;

implementation

uses Data, func, Car_Select, Mond_Select, CarCheck_Report;

{$R *.dfm}

procedure Tfrm_Check.Cmd_AddClick(Sender: TObject);
begin
    Cmd_Add.Enabled:=False;
    Cmd_Delete.Enabled:=False;
    Cmd_Edit.Enabled:=False;
    Cmd_Save.Enabled:=True;
    Cmd_Rush.Caption:='取消';

    Edit1.Text:='';Edit3.Text:='';
    Edit5.Text:='';Edit6.Text:='';Edit7.Text:='';Edit8.Text:='';
    Edit9.Text:='';Edit9.Text:='';Edit_ID.Text:='';
    Edit2.Text:=ForMatDateTime('yyyy''-''mm''-''dd',now);
    Edit11.Text:=Login_Name;
end;

procedure Tfrm_Check.Cmd_SaveClick(Sender: TObject);
begin
    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(Edit8.Text)='' then
    begin
        Edit8.SetFocus;
        APPlication.MessageBox('操作失败【审查结果】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    if Trim(Edit10.Text)='' then
    begin
        Edit8.SetFocus;
        APPlication.MessageBox('操作失败【有效日期】不能为空！请确认！',Pchar(Application.Title),MB_ICONwarning);
        Exit;
    end;
    with frm_data.Query_Car_Check do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Car_Check] where Check_Name='''+Trim(Edit5.Text)+''' and C_ID='''+Trim(Edit6.Text)+''' ');
        Try
            prepared;
            Open;
            if frm_data.Query_Car_Check.RecordCount>0 then
            begin
                APPlication.MessageBox('操作失败【该车辆该名称的审查已经审查了】！请确认！',Pchar(Application.Title),MB_ICONwarning);
                Edit6.SetFocus;
                Exit;
            end
            else
            begin
                with frm_data.Query_Car_Check do
                begin
                    Close;
                    Sql.Clear;
                    Sql.Add('INSERT INTO [Car_Check](Check_Type,Check_date,Check_Mond,Check_Login,Check_Name,C_ID,Check_Result,Check_EXP,Use_Date,Recorder) values (:u1,:u2,:u3,:u4,:u5,:u6,:u7,:u8,:u9,:u10)');
                    frm_data.Query_Car_Check.Parameters[0].Value:=Trim(Edit1.Text);
                    frm_data.Query_Car_Check.Parameters[1].Value:=Trim(Edit2.Text);
                    frm_data.Query_Car_Check.Parameters[2].Value:=Trim(Edit3.Text);
                    frm_data.Query_Car_Check.Parameters[3].Value:=Trim(Edit4.Text);
                    frm_data.Query_Car_Check.Parameters[4].Value:=Trim(Edit5.Text);
                    frm_data.Query_Car_Check.Parameters[5].Value:=Trim(Edit6.Text);
                    frm_data.Query_Car_Check.Parameters[6].Value:=Trim(Edit8.Text);
                    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(Edit11.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;
        except
            APPlication.MessageBox('系统错误！系统在打开数据表【Car_Check】时出现服务器连接错误！请确认！',Pchar(Application.Title),MB_ICONwarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Check.Cmd_EditClick(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('UPDATE [Car_Check] SET Check_Type=:u1,Check_date=:u2,Check_Mond=:u3,Check_Login=:u4,Check_Name=:u5,C_ID=:u6,Check_Result=:u7,Check_EXP=:u8,Use_Date=:u9 WHERE ID=:u10');
            frm_data.Query_Car_Check.Parameters[0].Value:=Trim(Edit1.Text);
            frm_data.Query_Car_Check.Parameters[1].Value:=Trim(Edit2.Text);
            frm_data.Query_Car_Check.Parameters[2].Value:=Trim(Edit3.Text);
            frm_data.Query_Car_Check.Parameters[3].Value:=Trim(Edit4.Text);
            frm_data.Query_Car_Check.Parameters[4].Value:=Trim(Edit5.Text);
            frm_data.Query_Car_Check.Parameters[5].Value:=Trim(Edit6.Text);
            frm_data.Query_Car_Check.Parameters[6].Value:=Trim(Edit8.Text);