unitequipmentconfig.pas

GD_2004 红外报警控制 串口,喜欢的就下载

        end;
    end;
end;

procedure Tfrm_EquipmentConfig.RContClick(Sender: TObject);
begin
    Cmd_Add.Enabled:=True;
    Cmd_Rush.Enabled:=True;
    Cmd_Delete.Enabled:=True;
    Cmd_Update.Enabled:=True;
    ContBrush;
    Edit_Terminal.Visible:=False;
    Edit_TerminalType.Visible:=False;
end;

procedure Tfrm_EquipmentConfig.RTerminalClick(Sender: TObject);
begin
    Cmd_Add.Enabled:=True;
    Cmd_Rush.Enabled:=True;
    Cmd_Delete.Enabled:=True;
    Cmd_Update.Enabled:=True;
    TerminalBrush;
end;

procedure Tfrm_EquipmentConfig.DBGrid1CellClick(Column: TColumn);
begin
    if RCont.Checked then
    begin
        Edit_Cont.Text:=frm_DataModule.ADO_QuerySearch.FieldByname('Cont').AsVariant;
        Edit_ID.Text:=frm_DataModule.ADO_QuerySearch.FieldByname('ID').AsVariant;
        Edit_Terminal.Text:='';
        Edit_TerminalType.Text:='';
    end;
    if RTerminal.Checked then
    begin
        Edit_ID.Text:=frm_DataModule.ADO_QuerySearch.FieldByname('ID').AsVariant;
        Edit_Cont.Text:=frm_DataModule.ADO_QuerySearch.FieldByname('Cont').AsVariant;
        Edit_Terminal.Text:=frm_DataModule.ADO_QuerySearch.FieldByname('Terminal').AsVariant;
        Edit_TerminalType.Text:=frm_DataModule.ADO_QuerySearch.FieldByname('Terminal_Type').AsVariant;
    end;
end;

procedure Tfrm_EquipmentConfig.Cmd_RushClick(Sender: TObject);
begin
    if RTerminal.Checked then
    begin
        TerminalBrush;
    end;
    if RCont.Checked then
    begin
        ContBrush;
    end;
end;

procedure Tfrm_EquipmentConfig.Cmd_DeleteClick(Sender: TObject);
begin
    if RCont.Checked then
    begin
        if Application.MessageBox('确定需要删除该记录吗？',Pchar(Application.Title),mb_OKCancel)=IDOK then
        begin
            with frm_DataModule.ADO_QueryDelete do
            begin
                Close;
                Sql.Clear;
                Sql.Add('Delete from [Cont] where ID=:u1');
                Parameters[0].Value:=Trim(Edit_ID.Text);
                try
                    ExecSql;
                    ContBrush;
                except
                    Application.MessageBox('删除记录失败，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
                    Exit;
                end;
            end;
        end;
    end;
    if RTerminal.Checked then
    begin
        if Application.MessageBox('确定需要删除该记录吗？',Pchar(Application.Title),mb_OKCancel)=IDOK then
        begin
            with frm_DataModule.ADO_QueryDelete do
            begin
                Close;
                Sql.Clear;
                Sql.Add('Delete from [Terminal] where ID=:u1');
                Parameters[0].Value:=Trim(Edit_ID.Text);
                try
                    ExecSql;
                    TerminalBrush;
                except
                    Application.MessageBox('保存记录失败，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
                    Exit;
                end;
            end;
        end;
    end;
end;

procedure Tfrm_EquipmentConfig.Cmd_UpdateClick(Sender: TObject);
begin
    if RCont.Checked then
    begin
        if Application.MessageBox('确定需要修改该记录吗？',Pchar(Application.Title),mb_OKCancel)=IDOK then
        begin
            with frm_DataModule.ADO_QueryUpdate do
            begin
                Close;
                Sql.Clear;
                Sql.Add('Update [Cont] Set Cont=:u0 where Id=:u1');
                Parameters[0].Value:=Trim(Edit_Cont.Text);
                Parameters[1].Value:=Trim(Edit_ID.Text);
                try
                    ExecSql;
                    ContBrush;
                except
                    Application.MessageBox('保存记录失败，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
                    Exit;
                end;
            end;
        end;
    end;
    if RTerminal.Checked then
    begin
        if Application.MessageBox('确定需要修改该记录吗？',Pchar(Application.Title),mb_OKCancel)=IDOK then
        begin
            with frm_DataModule.ADO_QueryUpdate do
            begin
                Close;
                Sql.Clear;
                Sql.Add('Update [Terminal] Set Cont=:u0,Terminal=:u1,Terminal_Type=:u2 where Id=:u3');
                Parameters[0].Value:=Trim(Edit_Cont.Text);
                Parameters[1].Value:=Trim(Edit_Terminal.Text);
                Parameters[2].Value:=Trim(Edit_TerminalType.Text);
                Parameters[3].Value:=Trim(Edit_ID.Text);
                try
                    ExecSql;
                    TerminalBrush;
                except
                    Application.MessageBox('保存记录失败，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
                    Exit;
                end;
            end;
        end;
    end;
end;

procedure Tfrm_EquipmentConfig.Cmd_EAddClick(Sender: TObject);
begin
    Cmd_EAdd.Enabled:=False;
    Cmd_EDelete.Enabled:=False;
    Cmd_EUpdate.Enabled:=False;
    Cmd_ESave.Enabled:=True;
    Cmd_ERush.Caption:='取消(&E)';
    Edit_EID.Text               :='';
    Edit_Equipment_NO.Text      :='';
    Edit_ECont.Text             :='';
    Edit_ETerminal.Text         :='';
    Edit_EUport.Text            :='';
    Edit_Equipment_Name.Text    :='';
    Edit_Equipment_Address.Text :='';
end;

procedure Tfrm_EquipmentConfig.Cmd_ERushClick(Sender: TObject);
begin
    EquipmentBrush;
end;

procedure Tfrm_EquipmentConfig.DBGrid2CellClick(Column: TColumn);
begin
    Edit_EID.Text               :=frm_DataModule.ADO_QuerySearch.FieldByname('ID').AsVariant;
    Edit_Equipment_NO.Text      :=frm_DataModule.ADO_QuerySearch.FieldByname('Equipment_NO').AsVariant;
    Edit_Equipment_Name.Text    :=frm_DataModule.ADO_QuerySearch.FieldByname('Equipment_Name').AsVariant;
    Edit_Equipment_Address.Text :=frm_DataModule.ADO_QuerySearch.FieldByname('Equipment_Address').AsVariant;
    Edit_ECont.Text             :=frm_DataModule.ADO_QuerySearch.FieldByname('Cont').AsVariant;
    Edit_ETerminal.Text         :=frm_DataModule.ADO_QuerySearch.FieldByname('Terminal').AsVariant;
    Edit_EUport.Text            :=frm_DataModule.ADO_QuerySearch.FieldByname('Uport').AsVariant;
    Edit_Warn_Music.Text        :=frm_DataModule.ADO_QuerySearch.FieldByname('Warn_Music').AsVariant;
    Edit_WarnImage.Text         :=frm_DataModule.ADO_QuerySearch.FieldByname('WarnImage').AsVariant; 
end;

procedure Tfrm_EquipmentConfig.Cmd_ESaveClick(Sender: TObject);
begin
    EditCode;
    with frm_DataModule.ADO_QuerySearch do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Equipment] where Equipment_NO='''+Trim(Edit_Equipment_NO.Text)+'''');
        try
            Open;
            if RecordCount=0 then
            begin
                with frm_DataModule.ADO_QueryInsert do
                begin
                    Close;
                    Sql.Clear;
                    Sql.Add('Insert into [Equipment] (Equipment_NO,Cont,Terminal,Uport,Equipment_Name,Equipment_Address,Warn_Music,WarnImage) values (:u0,:u1,:u2,:u3,:u4,:u5,:u6,:u7)');
                    Parameters[0].Value:=Trim(Edit_Equipment_NO.Text);
                    Parameters[1].Value:=Trim(Edit_ECont.Text);
                    Parameters[2].Value:=Trim(Edit_ETerminal.Text);
                    Parameters[3].Value:=Trim(Edit_EUport.Text);
                    Parameters[4].Value:=Trim(Edit_Equipment_Name.Text);
                    Parameters[5].Value:=Trim(Edit_Equipment_Address.Text);
                    Parameters[6].Value:=Trim(Edit_Warn_Music.Text);
                    Parameters[7].Value:=Trim(Edit_WarnImage.Text);

                    try
                        ExecSql;
                        EquipmentBrush;
                    except
                        Application.MessageBox('保存记录失败，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
                        Exit;
                    end;
                end;
            end
            else
            begin
                EquipmentBrush;
                Application.MessageBox('操作错误，不能保存重复的记录！',Pchar(Application.Title),MB_ICONWARNING);
                Exit;
            end;
        except
            Application.MessageBox('系统错误，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
            Exit;
        end;
    end;
end;

procedure Tfrm_EquipmentConfig.Cmd_EDeleteClick(Sender: TObject);
begin
    if Application.MessageBox('确定需要删除该记录吗？',Pchar(Application.Title),mb_OKCancel)=IDOK then
    begin
        with frm_DataModule.ADO_QueryDelete do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Delete from [Equipment] where ID=:u1');
            Parameters[0].Value:=Trim(Edit_EID.Text);
            try
                ExecSql;
                EquipmentBrush;
            except
                Application.MessageBox('删除记录失败，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_EquipmentConfig.Cmd_EUpdateClick(Sender: TObject);
begin
    if Application.MessageBox('确定需要修改该记录吗？',Pchar(Application.Title),mb_OKCancel)=IDOK then
    begin
        EditCode;
        with frm_DataModule.ADO_QueryDelete do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Update [Equipment] set Equipment_NO=:u0,Cont=:u1,Terminal=:u2,Uport=:u3,Equipment_Name=:u4,Equipment_Address=:u5,Warn_Music=:u6,WarnImage=:u7 where ID=:u8');
            Parameters[0].Value:=Trim(Edit_Equipment_NO.Text);
            Parameters[1].Value:=Trim(Edit_ECont.Text);
            Parameters[2].Value:=Trim(Edit_ETerminal.Text);
            Parameters[3].Value:=Trim(Edit_EUport.Text);
            Parameters[4].Value:=Trim(Edit_Equipment_Name.Text);
            Parameters[5].Value:=Trim(Edit_Equipment_Address.Text);
            Parameters[6].Value:=Trim(Edit_Warn_Music.Text);
            Parameters[7].Value:=Trim(Edit_WarnImage.Text);
            Parameters[8].Value:=Trim(Edit_EID.Text);
            try
                ExecSql;
                EquipmentBrush;
            except
                Application.MessageBox('修改记录失败，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_EquipmentConfig.Cmd_EquipmentInitClick(Sender: TObject);
begin
    with frm_DataModule.ADO_QueryItem do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select Distinct Cont from [Cont] Order by Cont ');
        try
            Open;
            if RecordCount>0 then
            begin
                Edit_ECont.Clear;
                while not eof do
                begin
                    Edit_ECont.Items.Add(FieldByName('Cont').AsString);
                    Next;
                end;
            end;
        except
            Application.MessageBox('系统错误，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
            Exit;
        end;
    end;
    with frm_DataModule.ADO_QueryItem do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select Distinct Terminal from [Terminal] Order by Terminal ');
        try
            Open;
            if RecordCount>0 then
            begin
                Edit_ETerminal.Clear;
                while not eof do
                begin
                    Edit_ETerminal.Items.Add(FieldByName('Terminal').AsString);
                    Next;
                end;
            end;
        except
            Application.MessageBox('系统错误，不能连接数据库服务器！',Pchar(Application.Title),MB_ICONWARNING);
            Exit;
        end;
    end;
end;

procedure Tfrm_EquipmentConfig.BtSelectClick(Sender: TObject);
var
    pathname:string;
begin
    OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName)+'WarnMusic\';
    pathname:=ExtractFilePath(Application.ExeName)+'WarnMusic\';
    if OpenDialog1.Execute then
    begin
        //Edit_Warn_Music.Text:=OpenDialog1.FileName;
        Edit_Warn_Music.Text:=Copy(OpenDialog1.FileName,Length(pathname)+1,length(OpenDialog1.FileName)-Length(pathname));
    end;
end;

procedure Tfrm_EquipmentConfig.FormDestroy(Sender: TObject);
begin
    frm_DataModule.ADO_QuerySearch.Close;
    frm_DataModule.ADO_QueryItem.Close;
    frm_DataModule.ADO_QueryDelete.Close;
    frm_DataModule.ADO_QueryUpdate.Close;
    frm_DataModule.ADO_QueryInsert.Close;
end;

procedure Tfrm_EquipmentConfig.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_DataModule.ADO_QuerySearch.Close;
    frm_DataModule.ADO_QueryItem.Close;
    frm_DataModule.ADO_QueryDelete.Close;
    frm_DataModule.ADO_QueryUpdate.Close;
    frm_DataModule.ADO_QueryInsert.Close;
    Action:=cafree;
end;

end.